Kullanıcı Ve PC adı alma

1 buton
2 label

Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
  u: array[0..127] of Char;
  c: array[0..127] of Char;
  KullaniciAdi: string;
  BilgisayarAdi: string;
  s: dword;
begin
  s := SizeOf(u);
  GetUserName(u, s);
  s := SizeOf(c);
  GetComputerName(c, s);
  KullaniciAdi := u;
  BilgisayarAdi := c;
  Label1.Caption := u;
  Label2.Caption := c;
end;