Eso me pasa por listillo jejeje, bueno , pues vamos a lo que vamos:
Código Delphi
[-]
function DelimitedText(lista:TStringList;Delimiter:char):string;
var i:integer;
begin
for i:= 0 to lista.count-2 do
result := result+ lista[i]+ Delimiter;
if lista.count > 1 then
result:= result+lista[lista.count-1]
end;
Vas a tener que crear otra rutina para añadir las comillas dobles, pero eso te lo dejo a ti.
Espero que te sirva