Datenbank in Excel schreiben

[endyexcellent]

@Nimoee: enDyExcellent ist eine Sie

Aber nun zu meinem Problem:
Ich habe also ein Programm geschrieben mit welchem ich Datensätze meiner datenbank-Tabelle in Excel schreiben kann. Sie ungefähr so aus:

Code:

begin
        try
        excel := CreateOleObject('Excel.Application');
        excel.visible := true;
        except
        ShowMessage('Excel konnte nicht gestartet werden !');
end;

begin

        Excel.Workbooks.Add;
        IBTable1.First;
        Excel.Cells[1, s+1] := 'Feldname 1';
        Excel.Cells[1, s+2] :='Feldname 2';
        Excel.Cells[1, s+3] :='Feldname 3';
        z := 2;
        While not IBTable1.eof do
        begin
        For s:=0 to IBTable1.Fieldcount-1 do
        Excel.Cells[z, s+1]:=IBTable1.Fields[s].Value;
        Inc(z);
        IBTable1.Next;
end;

end;

Jetzt habe ich aber viel zutun wenn ich jeden Feldnamen mit dem Befehl:

Code:

Excel.Cells[1, s+1] := 'Feldname 1';

in meine Excel-Tabelle reinschreibe. ich habe nämlich Feldnamen 1 bis Feldnamen 100 (andere Bezeichnung natürlich)

Gibt es eine Möglichkeit die Feldnamen der Datenbank-tabelle abzurufen und sie dann mit irgendeiner Schleife oder ähnlichem in mein Excel zu schreiben?

Mfg,
enDyExcellent