Source position: dialogs.pp line 493
protected procedure TFindDialog.DoShowForm(
Sender: TObject
); virtual;