مشكلة في MessageBox العربية

استخدمت الأمر التالي لإظهار رسالة عربية للمستخدم تبين له الرقم التسلسلي للملف الذي تم حفظه

procedure TfrmMain.btnSaveClick(Sender: TObject);
var
  txtMessage: PChar;
begin
  txtMessage := 'تم حفظ الملف..' + #13#10#13#10 + الرقم التسلسلي هو: ' + 'Ô ã/2004/11/02/2143';

  Application.MessageBox(txtMessage, 'حفظ', MB_ICONINFORMATION or MB_RTLREADING or MB_RIGHT or MB_OK);
end;

ولكن القراءة من اليمين إلى اليسار تخلق مشكلة في الرقم التسلسلي أيضاً كمل هو مبين في الصورة. فالرقم المطلوب إظهاره هو المبين في الكود وهو:

ش م / 2004 / 11 / 02 / 2142