Работа с FindFirst (Delphi)

[slorgi]

Добрый вечер.
В папке с программой лежат: 1.txt, 2.txt, 3.txt.
Нужно при нажатии кнопки1 в memo открывать 1.txt, при повторном нажатии 2.txt, 3.txt, опять 1.txt и т.д. по кругу.
У меня же открывается сразу последний, либо только первый, если без цикла. Помогите пожалуйста.

begin
memo1.Clear;
if FindFirst('*.txt', faAnyFile, searchResult) = 0 then
begin
repeat
Memo1.Lines.LoadFromFile(searchResult.Name);
until FindNext(searchResult) <> 0;
end;
end;

[ATL]

Много лет не писал на делфи, методом тыка написал код.

var
  Form1: TForm1;
  i : integer; // глобальная переменная

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(i);
  Memo1.Lines.LoadFromFile(IntToStr(i) + '.txt');
  if i = 3 then i := 0;
end;

Уверен есть более простое решение, но на ночь глядя я не осилил.