mensaje no se cierra cuando inicio un programa

[granodetoro]

hola a todos. bueno tengo un problema tengo un progress bar que funciona y entonces cuando inicia el programa pongo un showmessage que dice tiene un limite de tiempo para usar el programa y quiero que el showmessage se cierre cuando doy clic en la x miren mi codificacion mas abajo:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position :=progressbar1.Position+1;
if progressbar1.Position=800 then close;

showmessage('tiene un limite de tiempo para usar el programa ');

end;

end.

ayuda por favor