[fpc-pascal] TStringList.SetCommaText needs refactor

[AlexeyT]

It's obvious this needs to use SetDelimetedText with other params (2nd 3rd)

Procedure TStrings.SetCommaText(const Value: string);
begin
   CheckSpecialChars;
   C1:=Delimiter;
   C2:=QuoteChar;
   Delimiter:=',';
   QuoteChar:='"';
   Try
     SetDelimitedText(Value);
   Finally
     Delimiter:=C1;
     QuoteChar:=C2;
   end;
end;


it's obvious this needs to be changed too:

procedure TStrings.AddCommaText(const S: String);
var
   L: TStringList;
begin
   L := TStringList.Create;
   try
     L.CommaText := S;
     AddStrings(L);
   finally
     L.Free;
   end;
end;


-- 
Regards,
Alexey