beginner01 ,,, ya lo habia intentado pero no me funcionó ...
Pero ahora ya funciona ... :S ...

,,, lo siento por el hilo algo torpe

...
gracias ... pongo el codigo .. por si le sirve a alguien.
Código Delphi
[-]
procedure TForm.Timer1Timer(Sender: TObject);
begin
if tiempo = 3 then
begin
Timer1.Enabled:=False;
end
else
begin
tiempo := tiempo + 1;
end;
end;