| # | Line 362 | Line 362 | begin | |
|---|---|---|
| 362 | MessageDlg(E.Message,mtError,[mbOK],0); | |
| 363 | end; | |
| 364 | until IBDatabase1.Connected; | |
| 365 | < | Reopen(0); |
| 365 | > | Application.QueueAsyncCall(@Reopen,0); |
| 366 | end; | |
| 367 | ||
| 368 | procedure TForm1.EmployeesAfterDelete(DataSet: TDataSet); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |