Привет всем помогите решить простую зада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.