التعامل مع الاكسيل ومشكلة الاسماء العربية

السلام عليكم

ارجوا المساعدة فى حل مشكلة فى برمجة التعامل مع الاكسيل

المشكلة اننى عندما اقرا من الاكسيل مباشرة تظهر الاسم ان كان لغة عربية على صورة ؟؟؟؟؟؟؟؟؟ علامات استفهام.

وساضع الكود امامكم

// excel handling

FExcel :=CreateOleObject('excel.application');

FWorkBook:=FExcel.WorkBooks.Open(EmployeeFileName);

FWorkSheet := FExcel.ActiveSheet;

// read master emp code from array

for i:=1 to 1000 do begin //max no of emp

EmpExcel.code:=FWorkSheet.cells[i+1,1];

EmpExcel.name:=FWorkSheet.cells[i+1,2];

if (EmpExcel.code='') then begin

Edit4.Text:= inttostr(i-1);

Nexcel := i-1;

Break;

end;

end;

FExcel:=unassigned;

===========

اسف جدا مش عارف ليه السايت بتاعكم مش بيعمل ترتيب صحيح للكود

المشكلة انه اقرا الخانات الانجليزية جيدا اما اذا كان الاسم بالعربى فان الاسم يضهر داخل البرنامج على صورة ؟؟؟؟؟؟؟؟ وبالتالى فى اظهاره على الشاشة يظهر ؟؟؟؟؟ ايضا

ارجو المساعدة