Du machst die eine Komponente vom Type TComponent und dann so was
Delphi-Quellcode:
TDurchsuchenAdapter=class(TComponent)
protected
form:TFDurchsuchen;
fpath: string;
public
function execute: boolean;
property path...
end;
das dann mit Register registrieren und fertig
