1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function CurrentComputerName: string;
var
a: array[0..255] of Char;
b: Dword;
begin
b := SizeOf(a);
GetComputerName(a, b);
Result := a;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=CurrentComputerName;
end;