Закрытие формы в процедуре TForm.FormCreate(Sebder:TObject);

[qwertyk]

Существует форма, при создании она проверяет наличие каких-либо файлов. Если хотя бы одного файла не существует то форма должна закрыватся.

procedure TForm3.FormCreate(Sender: TObject);
var f:textfile; value:string;
begin
    if not fileexists('..\myfyle.txt') then// если файл не существует
        begin
            messagebox(handle,'Do not found executable file!','Error',mb_iconerror or mb_ok);
            form3.close;//это не работает
            form3.destroy;// работает, но надо чтобы форма закрывалась и программа завершала работу
        end;
end;

Можно ли как-нибуь прописать закрытие формы в процедуре создания формы?

[Пепел Феникса]

и программа завершала работу

Application.Terminate

[qwertyk]

Большое спасибо.