procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
Libro: OleVariant;
Hoja: OleVariant;
Rango: OleVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
Libro := Excel.WorkBooks.Add;
Hoja := Libro.ActiveSheet;
Excel.DisplayAlerts := false;
Hoja.Cells[1, 1] := 'A';
Hoja.Cells[1, 2] := 'B';
Hoja.Cells[1, 3] := 'C';
Hoja.Cells[1, 4] := 'D';
Rango := Hoja.Range['A:A, C:C'];
Rango.EntireColumn.Hidden := true;
Excel.Visible := true;
end;