Mudar cor do texto da caixa de dialogo (messageDlg)

  with CreateMessageDialog(´Teste de mensagem´,mtInformation,[mbYes,mbNo]) do
    try
      TLabel(FindComponent(´Message´)).Font.Color := clBlue;
      ShowModal;
    finally
      Free;
    end;