Delphi - individua utente windows

sapreste dirmi qual'è il codice che bisogna inserire per avere il nome dell'utente di windows attivo?
grazie

Dal mio multiplayer poker: pierotofy.it/pages/sorgenti/browse/14637/71/

{ Funzione per ricevere il nome dell'utente corrente... }
function GetLoginName: string;
var
  Buffer: array[0..255] of char;
  Size: dword;
begin
  Size := 256;
  if GetUserName(Buffer, Size) then Result := Buffer
  else Result := 'User';
end; 

già, lo avevo visto che il multiplayer poker lo leggeva, però non trovavo la parte di codice relativa