[Ar4ers]

Привет всем помогите решить простую зада4ку. Нужно чтобы не выходило ограни4ение времени, а именно showmessage на таймере когда открывало form2

Код:

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='password'
then
begin
form2.Show;
Form1.Hide;
end
else
begin
MessageDlg('',mtError,[mbOK],0);
form1.close;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('Время работы программы истекло ');
form1.close;
end;
end.