Мемо перенос строк

[MSD]

Добрый день. Помогите решить задачу. Допустим в мемо вставляю текст из edit:
memo1.lines.add('________________ '+Edit1.text);
memo1.lines.add('________________ '+Edit2.text); и.т.д
задача. Если длинна строки в Edit больше 30 символов, тогда нужно осуществить перенос на следующую строку, т.е. если длинна > 30 тогда должен быть перенос:
memo1.lines.add('________________ '+Edit1.text>30);
memo1.lines.add('________________ 'оставшийся перенос);
memo1.lines.add('________________ '+Edit2.text);
если edit мень 30 символов то переносить не надо, строк много.
Надеюсь понятно написал..) Спасите очень надо, горю... Спасибо заранее.

[W0LF]

var
  Buff: string;
  i: integer;
begin
  if Length(Edit1.Text) > 30 then begin
    Buff := Edit1.Text;
    for i:=0 to Length(Buff) div 30 do  begin
      Memo1.Lines.Add('________________' + Copy(Buff, 1, 30));
      Delete(Buff, 1, 30);
    end;
  end else
  Memo1.Lines.Add('________________' + Edit1.Text);
end;