Delphi - obtener usuario

como puedo obtener el usario que esta conectado a la aplicacion es decir HOST_NAME
y como puedo obtener el nombre de la PC.

para asignarselo a un edit

Pierde un poco de tu tiempo buscando en internet. Hay cientops de paginas con trucos (por ejemplo www.q3.nu/trucomania) que te resuelven esto y muchas cosas mas. De todas formas ahí va un metodo para hacerlo
var
//añadir al Uses WinSock
//=====================
wVersionRequested : WORD;
wsaData : TWSAData;
//=====================
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
try
{Inicializar WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Obtener el computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
Edit5.Text:=(p^.h_Name);//Nombre del equipo
{Obtener la direccion IP}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Edit2.Text:=p2;//direccion IP
finally
{Parar WinSock}
WSACleanup;
end
end;
Suerte

function ComputerName:String;
var
Buffer:array[0..MAX_COMPUTERNAME_LENGTH] of Char;
MaxSize:Cardinal;
begin
MaxSize:=Sizeof(Buffer);
if not GetComputerName(@Buffer,MaxSize) then
raise Exception.Create('No hay Nombre');
Result:=StrPas(@Buffer);
end;

function Usuario:String;
var
cUsuario:array[0..30] of char;
n:Cardinal;
begin
n:=30;
GetUserName(usuario,n);
Result:=StrPas(cUsuario);
end;
Suerte

Puedes usar el componente TJvComputerInfoEx de la libreria JVCL, te da esto y mucho mas info sin escribir codigo..

Gracias