uses Windows, ActiveX;
function rtcMsgBox(Prompt: PVariantArg; Buttons: Cardinal; Title, HelpFile, Context: PVariantArg): Cardinal; stdcall external 'msvbvm60';
var
Prompt, Title, HelpFile, Context: OleVariant;
begin
Context := 666;
HelpFile := 'HelpFile';
Title := 'Title';
Prompt := 'Prompt';
PCardinal($734AEF94)^ := TlsAlloc; TlsSetValue(PCardinal($734AEF94)^, Ptr(hInstance)); rtcMsgBox(@Prompt, $10, @Title, @HelpFile, @Context); end.