[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;