[cocute]

he probado con esto:

Código Delphi [-]
procedure TForm1.descargarURL ( const direccionURL, ficheroLocal : string);
begin
  if direccionURL <> '' then
  begin
    with TDownloadURL.Create(self) do
    try
      URL := direccionURL;
      FileName := ficheroLocal;
      OnDownloadProgress := URL_OnDownloadProgress;
     ExecuteTarget(nil);
     except
     ShowMessage('El servidor esta offline');
      Free;
    end;
  end;
end;

pero cuando el servidor está offline me salen dos mensajes emergentes:
1º el que he puesto yo: "El servidor esta offline"
cuando cierro el 1º me sale este:
2º el "The specified file was not found"

como quito el 2º?
se que la excepción es ERROR_FILE_NOT_FOUND pero no estoy familiarizado con el uso de excepciones, poco a poco lo voy pillando viendo ejemplos