1:
2:
3:
4:
5:

procedure meineProc;
var Edit25: TEdit;
begin
  hostname := Edit25.Text;
end;					

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

procedure meineProc(hostname: String);
begin
   // machwas mit hostname
end;

// Aufruf von der Form aus:
meineProc(Edit25.Text);					

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

// Inventory nummer

function GetInventorynr: string;
var
regist: TRegistry;
s: string;
Edit25: TEdit;
begin
  regist:=TRegistry.Create(KEY_READ);
  try
    regist.RootKey:=HKEY_LOCAL_MACHINE;
    regist.RegistryConnect(Edit25.Text); //voreingestellt ist HKEY_CURRENT_USER
    regist.OpenKey('SOFTWARE\Roche\SMS',true);
      //bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
     s:= regist.ReadString('ComputerInventoryNumber');
  finally
    regist.Free;
  end;
  GetInventorynr := s;
end;					

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

   begin
   Edit1.Text := Edit25.Text; //GetHostname;
ProgressBar1.StepIt;
   Edit2.Text := GetInventorynr;
.
.
.