Try doing this

procedure FtpProgress(Sender: TObject; Count: Int64; var Abort: Boolean);

procedure TForm2.FormCreate(Sender: TObject);
var
  FTP: TFtpClient;
begin
   FTP.OnProgress64 := FtpProgress;
end;

procedure TForm2.FtpProgress(Sender: TObject; Count: Int64;
  var Abort: Boolean);
begin
   ProgressBar.Position := Count;
end;

that should do it
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to