به دست آوردن کد اسکی حروف فارسی

چطور می تونم با یک دستور کد اسکی حروف فارسی را به دست بیارم.:8:

تا جایی که من میدونم کد ASCII به تعداد 256 تا هست و همه حروف داخلش انگلیسی هست.
سیستم فارسی شدن با فونتها توی ویندوز متفاوت شده.
البته بیشتر و دقیقتر نمیدونم.

به نظرم شاید این روش کارساز باشد:
ابتدا یک Label بسازید(با همان نام Label1) سپس یک دکمه ی استارت هم و بگذارید و در رویداد آن بنوسید:

[PHP]procedure TForm1.Button1Click(Sender: TObject);[/PHP]

[PHP]

var i:integer;
begin
Label1.Caption:='';
For i := 1 to 256 do
Label1.Caption:=Label1.Caption+IntToStr(i)+'.'+Cha r(i)+'----';
end;

[/PHP]

این روش تمام کد های اسکی قابل نمایش را به شما نشان می دهد.:5:
در ضمن تا جایی که من میدانم برای تایپ فارسی باید از کدگذاری Unicode استفاده کرد.