Вывод из memo в elit

[Letnab]

Доброго времени суток форумчане. Прошу помощи у Вас!
На форме memo там содержит 100-150 сток с числами. их нужно перевести в edit.Проблема собственно вот в чём. При переводе строк,в edit добавляются несколько лишних символов после запятой. Как от них избавится?

[chertovich]

var
  I: Integer;
begin
  Edit1.Clear;
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    Edit1.Text := Edit1.Text + Trim(Memo1.Lines[I]) + ',';  
  end;

[Letnab]

Огромное спасибо! Работает!!!

[Кольша]

можно так

Edit1.Text:=stringreplace(Memo1.Lines.text,#13#10,',',[rfreplaceall]);