A ver, si lo que se quiere es descontar los saltos de línea y sabemos que hay dos caracteres por cada salto, ¿no es más facil tomar la longitud del texto y restarle 2 veces el número de líneas?
Código Delphi
[-]
procedure TForm1.Memo1Change(Sender: TObject);
var
L, I: Integer;
begin
L := Memo1.Perform(EM_GETLINECOUNT, 0, 0);
I := Length(Memo1.Lines.Text) - 2*(L - 1);
Edit1.Text := Format('%d caracteres', [i]);
end;
// Saludos