[Snake22]

angvelem спасибо! теперь правильно размер считается

Код:

j:=0;//кол-во не латинских символов
for i:=0 to Length(Memo1.Text) do
    if Ord(Memo1.Text[i])>180 then inc(j);
j:=Length(Memo1.Text)+j;