Memo, не могу перекинуть... Опции

[PakMan]

здрасти всем, извените что спрашиваю такой простой вопрос... но мне нужно описать 2 кнопки пробывал своими силами но ничего не могу поделать... так вот что мне нужно...
в одном мемо уже есть текст, а второе мемо пока пустое... мне надо чтобы счетчик или курсор шел по строкам, при нажатии первой кнопки он перекидывал ее во второе мемо, и перешел на следущею строку. а при нажатии второй кнопочки, он перешел на следущею строчку... не могу построить цикл, помогите пожайлуста

[klem4]

Так?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  curr: Integer; // текушая позиция в Memo1

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  Memo1.Lines.LoadFromFile('C:\toMemo.txt'); // заполняемMemo1
  curr := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if curr <= Memo1.Lines.Count then
   Memo2.Lines.Add(Memo1.Lines[curr]);

  curr := curr + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  curr := curr + 1;
end;

end.

[PakMan]

спасибо большое, обязательно попробую... ну чувсвуется что похоже на это... заранее благодарю...