[gdlrinfo]

Buenas he llegado a terminar el código dejándolo así:

Código Delphi [-]
begin
  FTP := TIdFTP.Create( nil );
  FTP.OnWork := IdFTPWork;
  FTP.Username := Usuario;
  FTP.Password := Pss;
  FTP.Host := ftph;
  A:=0;
   try
    FTP.Connect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;
  //ProgressBar.max := FTP.Size(Lista.Strings[i]) div 1024;
  sigefa.ProgressBar.max := 100;
  if FTP.Connected then
     Begin
//showMessage('EstoyConectado a:'+ftp.Host);
   FTP.ChangeDir('/imagenes/credenciales/'+dir+'/');
   Lista := TStringList.create;
   FTP.List(Lista,'*.*',false);
    try
      for i := 0 to Lista.Count - 1 do
      begin
          if NOT FileExists('C:\Re\'+dir+'\' + Lista.Strings[i]) then
           Begin
           Label3.Caption:= Lista.Strings[i];
           Label3.Refresh;
           FTP.Get(Lista.Strings[i], 'C:\re\'+dir+'\' + Lista.Strings[i], true);
           A:=a+1;
           ProgressBar.Position:=100;
           End;
      end;
    finally
      FTP.Disconnect;
      FTP.Free;
      Lista.Free;
    end;
    ProgressBar.Position:=0;
    Label3.Caption:='....';
    Memo1.Lines.Add(FormatDateTime('hh:nn:ss', Now())+': Archivos de '+dir+' Descargados desde '+ftph+' Cantidad Total: '+InttoStr(A));
   End
  else
  BEGIN
      showmessage('No estoy conectado a:'+ftp.Host);
  END;

funciona de maravilla me gustaría saber si se puede comparar si algún archivo fue modificado y que lo actualice es decir modificado en el servidor.-
Desde ya muchas gracias