Articles

You can use GetComputerName procedure. For example:

procedure TForm1.Button1Click(Sender: TObject);
var
  CompName: array[0..256] of Char;
  i: DWord;
begin
  i:=256;
  GetComputerName(CompName, i);
  Label1.Caption:=StrPas(CompName);
end;