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

//*-----------------------------------------------------------------------------
procedure reserve(istring: string);
// Reserve procedure zum testen
  var
    mystring: string;

  begin
      // hier beispielcode schreiben
      mystring:= istring;
      mystring:= Form1.TFrame11.Edit1.Text); <== ergibt Fehler undeklarierter Bezeicher 'Form1'
    
      showmessage('dies ist die procedure reserve: '+istring);

  end;