Tabela fecha em mais sem menos

var
 Opcao: Byte;
begin
 if (DataSource1.State in [dsEdit, dsInsert]) and (Modificado) then
 begin
  if (DataSource1.State in [dsInsert]) then
  begin
   DBEdit25.Text := Form1._UserNomeCompleto;
   DBEdit26.Text := FormatDateTime(´dd/mm/yyyy "-" hh:mm:ss´, Now);
  end;
  if (DataSource1.State in [dsEdit]) then
  begin
   DBEdit27.Text := Form1._UserNomeCompleto;
   DBEdit28.Text := FormatDateTime(´dd/mm/yyyy "-" hh:mm:ss´, Now);
  end;
  Opcao := Application.MessageBox(´Este registro foi modificado, deseja salvar as alterações ?´, ´Compounder´, MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL);
  case Opcao of
   ID_YES: IBDataSet1.Post;
   ID_NO: IBDataSet1.CancelUpdates;
   ID_CANCEL: Abort;
  end;
 end;
 IBDataSet1.Close;
 Close;

var
 Found, i: integer;
begin
 Found := -1;
 for i := 0 to Screen.FormCount - 1 do
  if Screen.Forms[i] is TFrmCadFuncionarios then
   Found := i;
 if Found >= 0 then
  Screen.Forms[Found].Show
 else
 begin
  FrmCadFuncionarios := TFrmCadFuncionarios.Create(Application);
  with FrmCadFuncionarios.IBDataSet1 do
  begin
   Open;
   First;
   FrmCadFuncionarios.ComboBox1.Items.Clear;
   while not EOF do
   begin
    FrmCadFuncionarios.ComboBox1.Items.Add(TrimRight(FRmCadFuncionarios.IBDataSet1NOME.AsString));
    Next;
   end;
   First;
//   Insert;
  end;
  FrmCadFuncionarios.Show;
  FrmCadFuncionarios.SetFocus;
 end;