[[BlueSteel]]

Hola...

solo tienes que declarar esta funcion

Function GetUserName:String;
Var
PcUser : PChar;
DwUsize : DWord;
Begin
DwUsize := 21;
GetMem( PcUser, DwUsize);
Try
If Windows.GetUserName( PcUser, DwUsize ) then
Result := PcUser
Finally
FreeMem( PcUser );
End;
End;

y lo llamas de la siguiente forma
Edit1.Text:=GetUserName;