سلام
كد زير را در رويداد onchange يك edit بنويس در خروجي سرقمي جدا مي شود
var
s:string;
i:Integer;
begin
s:='';
if Edit2.Text>''then
begin
for i:=0 to Length(Edit2.Text)do
if Edit2.Textin['0'..'9']then
s:=s+edit2.Text;
Edit2.Text:=FormatFloat('#,',StrToInt64(s));
Edit2.SelStart:=Length(Edit2.Text)+1;
end;