ShowModal, close!!!!

[Ital1cs]

Всем привет.

Сделал свою кнопку на форме, и по отжатию этой кнопки эта форма должна закрываться, после создатся новая форма. Проблема в том что первая форма не закрывается. Или закрывается но только после второго клика на кнопку.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type
TForm2 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
procedure FormCreate(Sender: TObject);
procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.ShowModal;
end;


procedure TForm2.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image2.Visible:=false;
Image3.Visible:=true;
end;


procedure TForm2.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image3.Visible:=false;
Image2.Visible:=true;

Form1:= TForm1.Create(Application);
form1.Show;
form1.WindowState:=wsMaximized;
form2.Close; //не срабатывает с первого раза!! только со второго!!
end;

[Alex2009]

Вот сделал вот так и у меня все заработало.

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
form2.Close; //íå ñðàáàòûâàåò ñ ïåðâîãî ðàçà!! òîëüêî ñî âòîðîãî!!
form1.Show;
form1.WindowState:=wsMaximized;
Form1:= TForm1.Create(Application);
end;

[Alex2009]

Вот сделал вот так и у меня все заработало.

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
form2.Close; //íå ñðàáàòûâàåò ñ ïåðâîãî ðàçà!! òîëüêî ñî âòîðîãî!!
form1.Show;
form1.WindowState:=wsMaximized;
Form1:= TForm1.Create(Application);
end;

[Ital1cs]

не получилось, может причина в том что form1 это дочерняя форма в MDI приложении?
причем получается так что при первом нажатии создется эта форма, но form2 не закрывается, при повторном нажатии кнопки второй раз создается form1 и на этот раз уже закрывается form2.