Лишние символы вводимого текста

[victorshkoda]

Пробовал Тrim. Режет все, и пробелы и перевод каретки и табы.

[Вадим Мошев]

Могу также посоветовать у Memo в инспекторе объектов свойство WantReturns устанавливать в False

[3D Hunter]

Спасибо, буду знать.

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);
var i,: integer;
var s, q: string;
begin
  s:=Memo1.Text;
s:=stringreplace(s,#13#10,'',[rfreplaceall]);
  Edit1.Text:=s;
  i:=length(s);
  //q:='fff';
  q:=inttostr (i);
  Edit2.Text:=q;
end;