procedure TMyDialog.HandleCancel(var Msg: TMessage);
begin
     EndDlg(id_Cancel);         
end;