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;