Как узнать имя пользователя

[Вырубатель]

Здравствуйте скажите как узнать имя пользователя и имя компьютера
мне надо так допустим на форме label1 и label2 чтоб при открытии формы label1 и label2 показывало имя пользователя и имя компьютера

[RamDigga]

function GetLocalComputerName: String;
var
L : LongWord;
begin
L := MAX_COMPUTERNAME_LENGTH + 2;
SetLength(Result, L);
if Windows.GetComputerName(PChar(Result), L) and (L > 0) then
SetLength(Result, StrLen(PChar(Result))) else
Result := '';
end;