Suche Datensenitive ExportToExcel-Funktion

[Jumpy]

Hallo,

ich hab eine Funktion geschrieben, die Inhalte einer ADO-Query nach Excel exportiert via OLE usw. Beispiele dafür hab ich hier einige gefunden und mich daran orientiert. Knackstelle ist beim Schreiben in eine Excel-Zelle (sinngemäß):

Code:

while not query.EOF do
  begin
  for j=0 to query.Fields.Count-1 do
    Excel.Workbook.Worksheet.Cells[i+1,j+1].value=query.Fields[j].AsString;
  Inc(i);
  query.Next;
  end;

Problem ist das Excel diese Daten fröhlich umformatiert. Beispiel ein String mit Personalnummer 001234. Excel schneidet die führenden Nullen ab und interpretiert das als Zahl 1234.
Double oder Currency Werte bekommen in Excel amerikanische Zahlenformate (da wohl die Daten so in der DB sind) usw. usw.

Hat jemand vllt. eine Funktion, die das abfängt und z.B. nach den Datentypen der Query guckt und dann entsprechend irgendwie reagiert?