Problema extraño con showmodal =S

[Ken_Masters]

mmm no se que pasó no se muestra el código se ve horrible jeje, lo voya poenr otra vez :

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


Código del botón de altas de la forma2 :

Código Delphi [-]procedure Froma2.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;