Firemonkey и TApplication

[arxlex]

Привет всем!
Есть проект Firemonkey HD Application и вот там такой код:

...
if not(CreatePipe(read_stdout, newstdout, @sa, 0)) then
  begin
    if Application.MessageBox('There was an error creating the pipe.', 'Error...', MB_OK + MB_ICONERROR) = IDOK then
      Result := '';
    Exit;
  end;
...

...но при компиляции пишет такую ошибку:

[DCC Error] Unit1.pas(57): E2003 Undeclared identifier: 'MessageBox'
[DCC Warning] Unit1.pas(57): W1023 Comparing signed and unsigned types - widened both operands

Вопрос: Как адаптировать Application.MessageBox в проектах Firemonkey? Может есть другой метод?

[RinatV]

...
if not(CreatePipe(read_stdout, newstdout, @sa, 0)) then
  begin
    if MessageDlg('There was an error creating the pipe.', mtError, [mbOK,mbIgnore]) = mrOk then
      Result := '';
    Exit;
  end;
...