Datensätze in Excel-Sheet schreiben

[endyexcellent]

Hallo,

möchte ien Programm schreiben, mit welchem man eine Datenbank in Excel einlesen kann.
Bin aber noch nicht weit gekommen. das Programm kann bis jetzt Excel starten und Text in beliebige Zellen schreiben.

SQL-Code:

procedure TForm1.Button1Click(Sender: TObject);

var excel:Variant;
begin

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

Excel.Workbooks.Add;
Excel.Cells[1, 1].Value:='Hallo Welt';

end;

Meine Frage:

Wie kann ich die Datensätze einer DB-Tabelle in eine Excel-Tabelle schreiben?

Für jede kleine Hilfe bin ich arg dankbar

Mfg,
endyexcellent