Layout of Final CheckBook Program

program FourthWindow;
{$R SAMPLE.RES}                 
uses
    WObjects, WinProcs, WinTypes, WinDos, StdDlgs, Strings, ChkList;
const
     menu_file_new    = 101;    menu_file_open   = 102;
     menu_file_save   = 103;    menu_file_saveAs = 104;
     menu_file_exit   = 105;
     id_ListBox       =  11;
     id_Button_Edit   =  12;    id_Button_Delete =  13;
     id_Button_Insert =  14;    id_Button_Find   =  15;
     id_Dlg_Okay      =  51;    id_Dlg_Cancel    =  52;
     id_Dlg_ID   = 53;          id_Dlg_Date = 54;
     id_Dlg_Amount = 55;        id_Dlg_PayTo = 56;
     id_Dlg_Comment = 57;
type
    pStrType = array[0..255] of Char;

    TMyApp = object(TApplication)
                procedure InitMainWindow; virtual;
            end;
    PMyWin = ^TMyWin;
    TMyWin = object(TWindow)
                myFontBig, myFontSml       : HFont;            
                myBrush                    : HBrush;           
                isDirty, isSaved, isNewFile: boolean;     
                FileName: array[0..fsPathName] of Char;
                LB : PListBox;

                constructor Init(aParent: PWindowsObject; aTitle: PChar);
                procedure HandleBox(var Msg: TMessage); virtual id_First + id_ListBox;
                procedure RedoListBox;
                procedure HandleButtonInsert(var Msg: TMessage); virtual id_First + id_Button_insert;
                procedure HandleButtonDelete(var Msg: TMessage); virtual id_First + id_Button_delete;
                procedure HandleButtonEdit(var Msg: TMessage); virtual id_First + id_Button_edit;
                procedure HandleButtonFind(var Msg: TMessage); virtual id_First + id_Button_find;
                procedure MenuFileNew(var Msg: TMessage); virtual cm_First + menu_file_new;
                procedure MenuFileOpen(var Msg: TMessage); virtual cm_First + menu_file_open;
                procedure MenuFileSave(var Msg: TMessage); virtual cm_First + menu_file_save;
                procedure MenuFileSaveAs(var Msg: TMessage); virtual cm_First + menu_file_saveAs;
                procedure MenuFileExit(var Msg: TMessage); virtual cm_First + menu_file_exit;

                function   CanClose: boolean; virtual;
                procedure  Paint(PaintDC: HDC; var PaintInfo: TPaintStruct); virtual;
                destructor done; virtual;
             end;

    PMyDialog = ^ TMyDialog;
    TMyDialog = object(TDialog)
                   Date, ID, Amount, PayTo, Comment : PEdit;
                   constructor Init(aParent: PWindowsObject; aTitle: PChar);
                   procedure SetupWindow; virtual;
                   procedure HandleOkay(var Msg: TMessage); virtual id_first + id_Dlg_Okay;
                   procedure HandleCancel(var Msg: TMessage); virtual id_first + id_Dlg_Cancel;
                end;
var
   MyApp     : TMyApp;
   gCheck    : Check;
   CheckBook : CheckList;