[LucianoRey]

Hola, pues puedes hacer algo como esto:

procedure TForm1.DBNavigator8Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button in [nbInsert] then
  begin
   DataModule1.QArchivo.Cancel;
   DataModule1.QArchivo.Append;
   MostrarModal(TForm14);
  end
else if Button in [nbEdit] then
  begin
   MostrarModal(TForm14);
  end
.....................

Saludos.