[Ken_Masters]

Hola a todos, lo que sucede es que tengo un problema con la funcion showmodal. Yo tengo una forma que contiene un botón, el código de ese botón es:

Código Delphi [-]
procedure Forma1.BitBtn1Click(Sender: TObject);
begin
  Forma2.showmodal;
end;

Se supone que forma1 no debe poder entrar ni debe intrometerse para nada hasta que cierre forma2, el problema es que cuando hago cualquier acción en la forma2 (como dar de alta o dar de baja algo) esta se cierra y aparece la forma1!!. He estado checándolo por todos lados pero la vdd nos e que pueda ser, aquí les voy a dejar el código de mi botón de altas de la forma2, a ver si algo tiene que ver (aunque este problema lo tengo con cualquier boton)

Código Delphi [-]
procedure TAltas.BitBtn1Click(Sender: TObject);
var
  mensaje:integer;
begin
  if (dbedit1.Text='') or (edit1.Text='') then
  begin
    mensaje:=Application.MessageBox('No deje el campo vacio. Gracias', 'Error de entrada');
  end
  else
  begin
    try
      datamodule2.agrega_area.Parameters.ParamByName('nombre').Value:=dbedit1.Text;
      datamodule2.agrega_area.Parameters.ParamByName('id_departamento').Value:=edit1.Text;
      datamodule2.agrega_area.ExecSQL;
      dbgrid1.DataSource.DataSet:=datamodule2.consulta_area;
      datamodule2.consulta_area.Active:=false;
      datamodule2.consulta_area.Active:=true;
      dbgrid1.DataSource.DataSet.Last;
    except on E:Exception do
    begin
      E.Message:='error';
      application.MessageBox('No puede haber claves repetidas.Gracias','Error de entrada');
    end;
  end;
end;

end;

Gracias por la atención XD