[[cHackAll]]

La forma mas sencilla que tendrás es leer del Environment (variables de entorno) la variable "USERNAME", lo conseguirás con la API 'GetEnvironmentVariable'.

Por si no está del todo claro, Ejecutas cmd, y escribes "echo %USERNAME%"

ó

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var Buffer: array [0..31] of Char;
begin
 GetEnvironmentVariable('USERNAME', @Buffer, SizeOf(Buffer));
 Caption := Buffer
end;

Suerte!