Más o menos así:
Código Delphi
[-]
uses ComObj;
...
var
Excel: OleVariant;
Libro: OleVariant;
Hoja: OleVariant;
begin
Excel := CreateOleObject('Excel.Application');
Excel.SheetsInNewWorkbook := 1;
Libro := Excel.Workbooks.Add;
Hoja := Libro.ActiveSheet;
Hoja.Cells[1, 1] := 'Hola mundo';
Excel.Visible := true;
end;
Así pues, recorriendo los resultados de tu consulta puedes ir llenando las celdas de una hoja de Excel.
// Saludos