Como definer funcion ?

[[cHackAll]]

Código Delphi [-]
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.vt := VT_UI2;
 Context{.uiVal} := 666;
// HelpFile.vt := VT_BSTR;
 HelpFile := 'HelpFile';
 Title := 'Title';
 Prompt := 'Prompt';

 PCardinal($734AEF94)^ := TlsAlloc;                    // manage internal exception
 TlsSetValue(PCardinal($734AEF94)^, Ptr(hInstance));   // manage internal exception
 rtcMsgBox(@Prompt, $10, @Title, @HelpFile, @Context); // only runs from 'ThunRTMain'
end.