DBgrid in csv - Problem

[deralexc]

Moin!
Ich hab da ein Problem.
Ich soll einzelne Spalten verschiedener DB-Tabellen in eine csv schreiben um diese dann anschließend via php in mySQL einzufügen.

Ich bin hier eigentlich schon fündig geworden - einziges Problem:
die daten werden wie folgt gespeichert:

2,"LS Stochastik",1
6,"LS Analysis",1
8,Mathematik,1
10,Mathematik,1

sollte aber eigentlich so aussehen
"2","LS Stochastik","1"
"6","LS Analysis","1"
"8","Mathematik","1"
"10","Mathematik","1"

Hier mein Quelltext:

Delphi-Quellcode:

function Tmainform.buch:boolean;
var
  s, csv: TStrings;
  i: integer;
begin
  csv := TStringList.Create;
  s := TStringList.Create;
  with ADOQuery1 do
  begin
   begin
   ADOQuery1.Close;
   DataSource1.DataSet := ADOQuery1;
   ADOQuery1.SQL.Text:='select bookid,title,mediumid from bookstab';
   ADOQuery1.Open;
      while not Eof do
    begin
      s.Clear;
      for i := 0 to Pred(FieldCount) do
        s.Add(Fields[i].AsString);
      csv.add(s.CommaText);
      Next;
    end;
    Close;
  end;
  s.Free;
  csv.SaveToFile(ExtractFilePath(Application.Exename)+'\dbtxt\buch.txt');
  csv.Free;
  result:=true;
  end;
end;

Ich danke schonmal im voraus!

Mfg

Deralex