Como matar esse objeto do Excel

Tenho o seguinte codigo

procedure Tfrmlote.BitBtn10Click(Sender: TObject);
var Excel : Variant;
begin
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible :=True;
Excel.WorkBooks.Open(´c:\modelodeslocamento.xls´);
Excel.WorkBooks[1].Sheets[1].Cells[9,4]:= dm1.tblote.FieldByName(´placa´).AsString;
messagedlg(´Arquivo Gerado com Sucesso!´, mtinformation, [mbok], 0);

end;

Tenho essa funcao que abre um arquivo modelo e preenche os dados para o usuario numa planilha pré-definida!
Mas o problema é que se ele gerar 10 arquivos desse. Mesmo quando ele fecha o Excel se eu abrir a lista de processos do windows aparece os 10 processo do Excel abertos!!! Ate que ele estora a memoria do meu computador!
Como faco para poder matar esse objeto????
Grato
Marcos Robson