procedure TfrmStart2.Button1Click(Sender: TObject);
begin
   frmDrbal:=TfrmDrbal.Create(NIL);
   frmDrbal.OnClose:=clsDrbal;
   self.hide;
   frmDrbal.ShowModal;
end;

procedure TfrmStart2.clsDrbal(Sender: TObject);
begin
   frmDrbal.Free;
   self.show;
end;