[xanorik]

Код:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
 if Button = nbInsert then
 begin
  with DBGrid1.DataSource.DataSet do
  begin
   DisableControls;
   Next;
   if not EOF then Prior;
   Form2.Show;
   EnableControls;
  end;
 end;
end;

Пользуйся