Ключевые слова для листания таблицы.

[vaso1983]

Здраствуйте , спасибо вам большое. Вы мне уже однажды помогли на форуме. Делаю без навигатора кнопки для листания таблицы, используя слова Table1.Next и Table1.Prior. Теперь у меня такой вопрос, как можно сделать так на кнопке, чтобы при попадании путем листания на последнюю запись в таблице курсор вновь перемещался на первую и наоборот?

[Neeter]

При нажатии на кнопку предыдущей записи:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Table1.RecNo = 1 then Table1.Last
 else Table1.Prior;
end;

При нажатии на кнопку перехода к следующей записи:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Table1.RecNo = Table1.RecordCount then Table1.First
 else Table1.Next;
end;

[vaso1983]

Спасибо вам.