program textdefind; uses Vcl.Forms, textdefindunit in 'textdefindunit.pas' {TextDeFindForm}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TTextDeFindForm, TextDeFindForm); Application.Run; end.