procedure TMyWin.MenuFileNew;
var
   reply : integer;
begin
     if (isDirty) then
        reply := MessageBox(HWindow,'Are you sure','File not saved', mb_YesNo + mb_IconQuestion);
     if (reply = id_Yes) or (not isDirty) then
        begin
             DestroyList(CheckBook);
             LB^.ClearList;
             isDirty := false;
             isSaved := true;
             isNewFile := true;
        end; 
end;