MessageBox

with CreateMessageDialog(´Um erro ocorreu!´, mtError, mbOKCancel) do
try
  Font.Style := [fsBold];
  ShowModal;
finally
  Free;
end;