Fórum Salvar tabela do exel em delphi no pc #594550

tenho essa função de gerar um um arquivo exel de um grid, gostaria de saber como que eu faço para salvar esse arquivo no meu pc.

procedure GerarExcelCDSESalvar(Consulta: TClientDataSet);

var
coluna, linha: Integer;
excel: variant;
Valor: string;
begin
try
excel := CreateOleObject('Excel.Application');
excel.Workbooks.add(1);
except
Application.MessageBox('Versão do Ms-Excel' + 'Incompatível', 'Erro',
MB_OK + MB_ICONEXCLAMATION);
end;
Consulta.first;
try
for linha := 0 to Consulta.RecordCount - 1 do
begin
for coluna := 1 to Consulta.FieldCount do
begin
if Consulta.Fields[coluna - 1] is TFloatField then
begin
Valor := FormatFloat(FormatoValor,
Consulta.Fields[coluna - 1].AsFloat);
excel.cells[linha + 2, coluna].NumberFormat :=
'R$ #.##0,00_);(R$ #.##0,00)';
excel.cells[linha + 2, coluna] := Valor;
end
else
begin
Valor := Consulta.Fields[coluna - 1].AsString;
excel.cells[linha + 2, coluna] := Valor;
end;
end;
Consulta.next;
end;

for coluna := 1 to Consulta.FieldCount do
begin
Valor := Consulta.Fields[coluna - 1].DisplayLabel;
excel.cells[1, coluna] := Valor;
end;
excel.Columns.AutoFit; // ajusta as colunas
excel.Workbooks.saveas('reajuste.xls');

// excel.Visible := True; essa opçao faz a tabela abrir depois de gerada
except
Application.MessageBox('Aconteceu um erro desconhecido durante a conversão'
+ 'da tabela para o Ms-Excel', 'Erro', MB_OK + MB_ICONEXCLAMATION);
end;