str1,str2:ansistring;
......
var
strs : TStrings;
begin
strs := TStringList.Create;
try
strs.CommaText := str1;
str2 := strs.Text;
finally
strs.free;
end;
end;