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;