333
if OSError(CreateStandardAlert(AlertCode, CaptionStr, MessageStr, @ParamRec, AlertRef),
318
if OSError(CreateStandardAlert(AlertCode, CaptionStr, MessageStr, @ParamRec, AlertRef{%H-}),
334
319
Self, SName, 'CreateStandardAlert') then Exit;
336
if OSError(RunStandardAlert(AlertRef, nil, AlertBtnIdx), Self, SName,
321
if OSError(RunStandardAlert(AlertRef, nil, AlertBtnIdx{%H-}), Self, SName,
337
322
'RunStandardAlert') then Exit;
339
324
{Convert Carbon result to LCL "id" dialog result}