[Opsidon]

есть текст в MEMO1:

текст
текст
текст
текст
пробел
текст
текст
текст
текст
пробел

Задача:
Нужно что-бы текст добавился по частям(разделитель пробел) в MEMO2, с интервалом 1 сек.

Помогите м примером!

[Alegun]

déjà vu...

Код:

var
cnt: integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Timer1.Interval = 1000 then Timer1.Interval:= 1;

 if cnt < Memo1.Lines.Count then
  begin
   if Memo1.Lines[cnt] = '' then Timer1.Interval:= 1000 
    else
     Memo2.Lines.Add(Memo1.Lines[cnt]);
   inc(cnt);
  end;
end;