Exportando dados p/ o excel

//adcione na clausa
uses
COMobj
...
...
procedure TfrmMain.Gerar;
var
excel :variant;
try
excel := CreateOleObject('excel.application');
if not Excel.Application.Visible then
Excel.Application.Visible := true;
Excel.WorkBooks.Add;
Excel.Cells[1,1] := 'meu valor 1';
Excel.Cells[1,2] := 'meu valor 2';
Excel.Cells[1,3] := 'meu valor 3';
Excel.Cells[1,4] := 'meu valor 4';
except
showmessage('Ocorreu erro ao executar a transferência')
end;