Foros Club Delphi - Comprobar la existencia de un archivo en internet

Buenas Noches,

Me gustaría saber si existe alguna forma de saber si existe un archivo en internet antes de proceder a su descarga a través de TDownloadURL. O al menos alguna forma de controlar el error para que no aparezca el mensaje de que la URL no existe.

El código que uso es este: :D

Código:

procedure TImpBL.DBGrid1CellClick(Column: TColumn);

begin

if FileExists(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg') then

 begin

    PreviewImg.Picture.LoadFromFile(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg');

 end else

 begin

    ProgressBar1.Position := 0;

    ProgressBar1.Visible := True;

    with TDownloadURL.Create(self) do

   try

     URL:='WWW-PAGINAWEB-COM/SL/'+DM1.QBuscaITEMID.Text+'.jpg';

     FileName := rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg';

     OnDownloadProgress := URL_OnDownloadProgress;

     ExecuteTarget(nil) ;

   finally

     Free;



   end;

   ProgressBar1.Visible := False;

   PreviewImg.Picture.LoadFromFile(rutainst+'data\images\sets\'+DM1.QBuscaITEMID.Text+'.jpg');

 end;

end;

Aclaraciones:

Código:

DM1.QBuscaITEMID.Text es un Query de ADO.



rutainst := ExtractFilePath(ParamStr(0));

Mas que nada lo quiero saber por que las imagenes que intento descargar no siempre estan en .jpg, a veces estan en .gif, y otras no existen. :confused:

Saludos y futuras Gracias!! :)