[MegaPiha]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
    XL, Workbook, Range, Cell1, Cell2, ArrayData, Row  : Variant;
    BeginCol, BeginRow : integer;
    RowCount, ColCount : integer;
    i:byte;
begin
    BeginCol := 1;  
    BeginRow := 3;
    RowCount := 250; 
    ColCount:=1;
    XL := CreateOleObject('Excel.Application');  
    XL.Application.EnableEvents := false;  
    Workbook := XL.WorkBooks.Add;  
    Row:=XL.Workbooks[1].WorkSheets[1].Rows;
    Row.Cells[2,1]:='Название столбца';
    XL.Columns.Columns[1].ColumnWidth:=7;
    ArrayData := VarArrayCreate([1, RowCount+1, 1, ColCount+1], varVariant); 
    for i := 1 to RowCount do 
    begin
        ArrayData[i,1] :=mas[i];
    end;
    Cell1 := XL.Cells[BeginRow, BeginCol];     
    Cell2 := XL.Cells[BeginRow+RowCount-1, BeginCol + ColCount-1];
    Range := XL.Range[Cell1, Cell2];  
    Range.Value := ArrayData; //âûâîä äàííûõ
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.LineStyle := 1;
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.Weight := 2;
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.ColorIndex := 1;
    XL.Visible := true;
end;

Тока mas надо сделать глобальной переменной