var
s:string;
begin
s:=Edit1.Text;
for s:=1 to length(s) do
if s[i]=',' then delete(s,i,1);
ShowMessage(s);
end;
var
s:string;
begin
s:=Edit1.Text;
for s:=1 to length(s) do
begin
if s[i]=',' then delete(s,i,1);
ShowMessage(s);
end;
end;