[*Caro*]

Hola de nuevo, para obtener la cantidad de caracteres que tienes en una línea lo puedes hacer así, claro que tienes que obtenerlo antes de eliminar la línea.

Código Delphi [-]
 CantLinea := Length(Memo1.Lines[StrToInt(Edit1.Text)]);
 Memo1.Lines.Delete(StrToInt(Edit1.Text));
 
 //Y CantLinea lo restas de tu total
 Total := Total - CantLinea;

También tienes otra forma, es obtener el Length de todo el Texto del memo, pero ahí toma en cuenta también #10 #13 que es el salto línea por lo que deberas restar también eso o quitarlo antes.

Código Delphi [-]
 Edit2.Text := IntToStr(Length(Memo1.Text));

Saluditos