Mein Fortschrittsbalken funktioniert nun auch beim Upload !!! 
Aber nicht zu früh freuen - es ist immer noch ein Provisorim. Der Fehler liegt in der Pufferung beim Senden. Hier wird das
DoWork nicht aufgerufen. Ich habe mir bis jetzt einfach so geholfen, dass ich den Upload ohne Pufferung durchführe. Hierzu habe ich den QuellCode folgendermassen geändert:
Änderung im TIdIOHandler:
procedure TiDIOHandler.Write(AStream: TIdStream; ASize: Int64 = 0; AWriteByteCount: boolean = FALSE);
begin
...
...
...
nach Zeile Nr. 1233, wo steht: LBufferingStarted := not WriteBufferingActive;
habe ich einfach die Zeile:
LBufferingStarted := false
eingefügt.
So funktioniert mal alles, wie es soll. Ich werde aber noch weitersuchen, wo in der Pufferung der Aufruf für DoWork fehlt.
mfg
Herbert