رسائل عربية هل ممكن

procedure TForm1.Table1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if (E is EDBEngineError) then
	if (E as EDBEngineError).Errors[0].Errorcode = 9729 then
	begin
	  MessageDlg('Unable to post: Duplicate ID.', mtWarning, [mbOK], 0);
	  Abort;
	end;
 end;

ضع هذا الكود في Table1PostError استبدل النص 'Unable to post: Duplicate ID.' بما تريد

شكرا لك اخي الكريم

مشي الحال والحمدلله