Source position: forms.pp line 1347
type TMessageBoxFunction = function(
Text: PChar;
Caption: PChar;
Flags: LongInt
):Integer;