procedure TMyWin.HandleButtonInsert(var Msg: TMessage); var reply : integer; begin gCheck.ID := ''; gCheck.Date := ''; gCheck.Amount := ''; gCheck.PayTo := ''; gCheck.Comment := ''; reply := Application^.ExecDialog(New(PMyDialog, Init(@Self,'Check_Info'))); if (reply = id_OK) then begin Insert(CheckBook, gCheck); RedoListBox; isDirty := true; end; end;