Procedure in Procedure aufrufen klappt nicht

[muschelknacker]

hat jemand für mich auch eine Lösung ??
in Object-Pascal versuche ich folgendes:

procedure TForm1.Pg3ausgabeExit(Sender: TObject);
begin
Dbf2Bestand.Filtered:=true;
// hier soll die untere procedure nochmal aufgerufen werden,klappt aber nicht
end;


procedure TForm1.Dbf2BestandFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Dbf2Bestand.FieldByName('ORT').AsString = 'LAGER';
end;

danke für hilfe.....