Text auf Konsole überschreiben

[kng]

Hi,

Ich habe eine Konsolenanwendung, in der in verschiedenen Prozeduren immer der Fortschritt angezeigt wird.
Bisher mache ich das so
WriteLn(Format('%u percent complete.', [iPercent])); Wie kann man den Fortschritt jetzt immer überschreiben, so dass nicht immer eine neue Zeile erzeugt wird?

Danke!