1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

implementation
uses registry;

{$R *.dfm}
function RegistryConnect(const UNCName: String): Boolean;
var reg:tregistry;
a,b:string;
begin
  reg :=TRegistry.Create;
  try
  reg.RootKey :=HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\Bla bla bla\Laberrababer', True);
a:=reg.readString('Breite');
b:=reg.readString('Höhe');
  reg.CloseKey;
    finally
    reg.Free;
  end;

end;					

1:
2:
3:

reg := TRegistry.Create(KEY_READ);
with reg do try
  RootKey := HKEY_LOCAL_MACHINE;					

1:
2:
3:
4:
5:
6:
7:
8:

  if(RegistryConnect('\\Computername')) then begin
    ShowMessage('online with host');

    // weiter geht´s ...
  end;
finally
  Free;
end;					

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

function RegistryConnect(const UNCName: String): Boolean;
var reg:tregistry;
begin
reg := TRegistry.Create(KEY_READ);
with reg do try
  if(RegistryConnect('\\Buero')) then
    begin
    ShowMessage('online with host');
     reg.OpenKey('Software\Bla\Laber', True);
     a:=reg.readString('Breite');
     b:=reg.readString('Höhe');
     reg.CloseKey;
     end;
finally
Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button2Click(Sender: TObject);
var reg:tregistry;
begin
reg := TRegistry.Create(KEY_READ);
with reg do try
  if(RegistryConnect('\\Buero')) then
    begin
    ...					

1:

vielleicht habe ich den Code nur mal wieder falsch zusammen gebaut.					

1:
2:

implementation 
uses registry; ..........					

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

var reg:tregistry; 
a,b:string;
begin 
  reg :=TRegistry.Create; 
  try 
  reg.RootKey :=HKEY_LOCAL_MACHINE; 
  if not (RegistryConnect('//Computername'))         <-----eventuell // weglassen
  then
  irgendwas was er macht beim verbindungs fehlschlag bsp mesage computer nicht gefunden
  else
  reg.OpenKey('Software\Bla bla bla\Laberrababer', True);
  a:=reg.readString('eins'); 
  b:=reg.readString('zwei'); 
  reg.CloseKey; 
    finally 
    reg.Free;