procedure TForm1.Button1Click(Sender: TObject);
var Buffer : Array[0..255] of Char; BuffSize : DWORD;
begin
    BuffSize := SizeOf(Buffer);
    GetUserName(@Buffer, BuffSize);
    ShowMessage(Buffer);
end;