Danke für deine Unterstützung...
function TfoBaseDialog.ShowDialog(MessageCaption: string; MsgType: TMsgDlgType; Buttons: TMsgDlgButtons; MessageLines: TStrings; Help: LongInt = 0; MessageColor: Integer = clBlack; Parent: TForm = nil): Integer;
...der Parameter der function kann sowohl nil als auch ein object sein. In diesem Falle übergebe ich die Form (Self).
TBlubbMessageDialog.MessageDlg(Format(conErrorLoadFile, [QuotedStr(FileName)]), conTextOpen, vmtError, [buOk], clBlack, Self);