Der Vorschlag, die Länge selbst in einer Loop über die Zeilen zu bestimmen, erschien mir zunächst performance-technisch völlig ungeeignet, da bei jeder eingabe eines Zeichen im Editor diese Zahl neu angezeigt - und damit auch berechnet werden muss.
In dem Fall geht aber die meiste Zeit damit verloren, den Rückgabewert des Text-Properties aus den einzelnen Strings zusammenzusetzen. Das ist um ein Vielfaches aufwändiger als einfach alle Zeilenlängen zusammenzurechnen.
Du solltest aber beachten, daß Text für jede Zeile ein CRLF anfügt. Dadurch ist die Length(Text) nicht identisch mit Sum(Length(Lines[I]))!