Código Delphi [-]procedure TfrExpterminales.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin pnMensajes.Caption:='Kilobytes Transferidos '+FormatFloat(',0',AWorkCount div 1024); Application.ProcessMessages; end;
procedure TfrExpterminales.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin pnMensajes.Caption:='Kilobytes Transferidos '+FormatFloat(',0',AWorkCount div 1024); Application.ProcessMessages; end;