Выполнить действие один раз.

[maladoy]

После showmodal вставь timer3.Enabled:=false;

[IVANSour]

Сообщение от maladoy

После showmodal вставь timer3.Enabled:=false;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
timer3.Enabled:=false;
end;
end;
end.

Так тоже не подходит после того как форма открывается выдает ошибку которая начинает открываться много раз до беск. я думаю это из-за
числа но твой код не чего не исправил.