Objekte Bewegen

[Finki]

Das wäre echt net. Ganz kurz noch, vielleicht kannst du mir was anderes beantworten.

und zwar arbeite ich gerade daran das man sieht wie viel zeichen man geschrieben hat.
StatusBar.Panels.Items[1].Text := Format('%d Zeichen', [Length(Memo1.Text)-(2*Memo1.Lines.Count)+1]); // 2*Anzahl der Zeillen weil der Umbruch Befehl als zwei Zeichen gezählt wird das Problem ist das Sonderzeichen wie ß ü ö ä, usw. sind zwei Zeichen.

Gibt es einen "einfachen" Weg wie ich das vermeinden kann, also das sie als ein Zeichen gezählt werden?