Mostrar formulario, esperar y ejecutar funcion

[defcon1_es]

Hola, prueba esto:

Pon (en diseño) en la propiedad Enabled := False;

En el evento OnTimer debes poner sólo la llamada a la función que se conecta al server y descarga archivos.

Código Delphi [-]
procedure TForm.FormShow(Sender: TObject);
begin
   Timer1.Interval := 3000; //milisegundos
   Timer1.Enabled := True;
end;

procedure TForm.Timer1Timer(Sender: TObject);
begin
    //Funcion que se conecta al server y descarga archivos
end;

[ethangio]

defcon1_es ..

Gracias lo solucione ...

Pero en mi funcion de descargar archivo si lo descarga pero lo descarga dañado ( es un exe ) ... no se puede ejecutar, estoy usando los componentes indy ...

Tienen alguna sugerencia que estoy haciendo mal .. ??

Código Delphi [-]
      //Descargar
      StringList:= TStringList.Create;
      //Cambiamos de directorio
      IdFTP1.ChangeDir('/public_html/actualizacion/');
       try
        IdFTP1.List(Stringlist, '', false);
        for i := 0 to Stringlist.Count-1 Do
        begin
          if (StringList[i] <> '') and ((StringList[i]<>'.') and (StringList[i]<>'..')) then
          begin
            //Descarga
            idFTP1.Get( ExtractFileName(StringList[i]), 'Update\'+StringList[i], True , False );
          end;
        end;
        except
        IdFTP1.disconnect;
       end;
      StringList.Free;
    end;
  //============================================================================================

[ecfisa]

Hola ethangio.

Tál como dice el punto [ 8 ] de nuestra guía de estilo, te ruego que esta última consulta la hagas en un hilo aparte con un título significativo. De ese modo quien pudiera tener un problema similar lo podrá encontrar fácilmente.

Saludos y gracias por tu colaboración.