function FzModifyStr(ChkStr:String):String;
var
  FStr,tempstr:String;
  len,i :integer;
begin
 FStr:='';
 len:=Length(ChkStr);
 For i:=0 to len-1 do
 begin
  tempstr:='';
  tempstr:=Copy(ChkStr,i 1,1);
  if CompareStr(tempstr,',')=0 then
   tempstr:=char(39) tempstr char(39) else tempstr:=tempstr;
  FStr:=FStr tempstr;
 end;
 Result:=FStr;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit2.Text:=char(39) FzModifyStr(Edit1.Text) char(39);
end;