So, einfaches Beispielprojekt unter Delphi XE: ein Memo und eine Statusbar, im OnChange des Memos folgender Code
StatusBar1.SimpleText := Format('%d Zeichen', [Length(Memo1.Text)]);
Eingabe:
Zitat:
Dies ist ein Testäöü
Anzeige in der Statusbar:
Zitat:
20 Zeichen
Das Einzige, was hier 2 Zeichen produziert, ist der Zeilenumbruch, da dieser unter Windows ja tatsächlich aus 2 Zeichen (#13#10) besteht.