Hallo Andy,
du könntest deiner TFmPlzSuchen im Abschnitt public folgendes beibringen:
Delphi-Quellcode:
interface
type
TFmPlzSuchen = class(TForm)
private
FPlz: string;
public
function Execute(ortsName: string): boolean;
property Plz: string read FPlz;
...
end;
implementation
function TFmPlzSuchen.Execute(ortsName: string): boolean;
begin
Result := ErgebnisDeinerSucheNach(ortsName);
end;
Wenn du jetzt in der Methode Execute eine erfolgreiche Suche signalisierst, wobei du intern die gefundene Plz in FPlz festhältst, dann kannst du in deiner AdressForm so vorgehen:
Delphi-Quellcode:
var
sOrt, sPlz: string;
begin
...
with FmPlzSuchen do
if Execute(sOrt) then
sPlz := Plz;
...
end;
Grüße vom marabu