Var H: Integer; cont: integer; begin cont := 0; for H := 0 to Memo1.Lines.Count-1 do begin cont := cont + length(Memo1.Lines[H]); end;