[Karsh]

Вот так можно узнать имя компьютера, если это поможет

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..255] of Char;
  nSize: DWORD;
begin
  nSize:= 256;
  GetComputerName(ComputerName, nSize);
  ShowMessage(ComputerName);
end;