Change ShowMessage box text color

Hi Everyone,

I would like to change the Text Color in a message box from Black to Red.  The message box works OK, I would just like the WARNING message to stand out a little more.  Here's the code for my message box:
//////////////
procedure frmMainMenu_btnDelVessel_OnClick (Sender: TObject; var Cancel: boolean);
var
text : string;
btn :integer;

begin
   btn := messageDlg('WARNING - This will DELETE this Vessel and all of the records for this Vessel. Please choose YES or NO on the next message'+text,mtWarning, mbCancel+mbOK, 0);
      Exit
end;

/////////////
Thanks, as always, for your help.
Frank