aktulna nazwa zalogowanego usera

witam

jak można pobrac z systemu nazwę aktualnie zalogowanego użytkownika w windows xp

bardzo prosze o pomoc

imo do NEWBIE z tym

Var
User : String;
Buff : DWORD;
begin
// dlugoosc Nazwiska
Buff := 12;
SetLength(User, Buff);
GetUserName(PChar(User), Buff);
ShowMessage(User);

ja [CIACH!] co za lenistwo!!! 4 dni temu na forum było!!!

Misiekd= HEhe.... Nawet w FAQ to jest!!!!