Terminar una funcion en un tiempo

[carlmasa]

Buenos días a todos.

Os explico mi problema: Tengo un componente en el que cargo un fichero PDF para poder procesarlo, el problema radica en que hay algunos ficheros que no estando corruptos (se pueden abrir con el Adobe) se me queda pegado el programa intentando abrirlo. Me gustaría saber como hacer para que si en un cierto tiempo no se ha podido abrir me devuelva el control o mate ese proceso.

El código que utilizo es muy sencillo:

for i := 0 to NumeroDeFicheros do
begin
try
micomponente.Filename := NombreFichero;
.....
except
......
end;
end;

He estado viendo la función "WaitForSingleObject" pero no se como usarla con un componente.

Un saludo y muchas gracias