하고싶은 것은 FormCreate Event를 처리하면서 특정 상황이 되면 프로그램을 종료하고 싶은데
Close 등을 해도 종료가 안되고 계속해서 진행이 되어 버려서요.

procedure TForm1.FormCreate(Sender: TObject);
var
    ResultsForm : TForm;
begin
    ResultsForm := TForm3.Create(Application);
    if ResultsForm.ShowModal <> mrOK then
    begin
        ShowMessage('비정상종료');
        Close;
    end;
end;