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

procedure fensteranzeigen; stdcall;
begin
 form1:=form1.create(application);
   try
     form1.showmodal
   finally
     form1.free
   end
end;					

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

procedure benutzer_anzeigen(ort : string); stdcall;
begin
  Form1 := TForm1.Create(nil);
  Form1.ShowModal;
  Form1.merkzettel_ort := ort;
end;					

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

procedure benutzer_anzeigen(ort : string); stdcall; 
begin 
  Form1 := TForm1.Create(nil); 
  Form1.merkzettel_ort := ort; 
  Form1.ShowModal; 
end;