نمایش سه رقم سه رقم با ویرگول

[mdev12]

با سلام
وقتی توی ادیت عدد ساده نوشته شد در یه ادیت یا لیبل دیگه اون رو با ویرگول نشون بدهد چون کامپوننت اون رو پیدا نکردم من با xe8 کار می کنم
ضمنا من کل فرم هام رو با ادیت معمولی به دیتابیس وصل کردم
راهنمایی کنید ممنون

function AddComma(snum : string) : string;
var
l, I : integer;
s : string;
begin
I := 1;
l := length(snum);
while I <= l do
begin
s := snum[l – I + 1] + s;
if (I mod 3 = 0) and (I <> l) then
s := ‘,’ + s;
I := I + 1;
end;
result := s;
end;

کد ویرگول از سایت برنامه نویس هست

[mdev12]

مشکلم حل شد

Edit2.Text:=AddComma(Edit1.Text);