Сохранение массива в excel файл

[ikostalker]

Здравствуйте, есть такая программа :

----
InBuff =array[0..2000000] of dword;
OutBuff =array[0..2000000] of dword;
var
buffO utBuff;
BuffI :InBuff;
Form1: TForm1;
ch :string;
err word;
------
procedure TForm1.Button1Click(Sender: TObject);
var
a0,a1,a2,a3 : byte;
HANDLE,a :integer;
P5,P6,Length word;
begin
HANDLE := XdspOpenDriver(0);
a:=XdspGetVersion(0);
err:=GetLastError;
ch:=IntTOStr(HANDLE);
edit1.Text:=ch;
Form1.Color:=$000000;
// Инициализация портов

----

P5:= (((a3*256+a2)*256)+a1)*256+a0;

XdspWritePortDWORD(HANDLE,$05,P5);

P6:= 1024; // размер вводимого с АЦП массива

XdspWritePortDWORD(HANDLE,$06,P5);// Начало взятия массива при внутр. запуске

Length:=1024;


XdspReadMemBuff(Handle,0,BuffO,Leng th);
for a:= 1 to 800 do begin

Canvas.Pixels[a,200-1*trunc( 0.01*($00000FFF and BuffO[a]))]:=$FF00FF;
// 11-0 разряд
Canvas.Pixels[a,400-1*trunc( 0.01*(($0FFF0000 and BuffO[a]) div (256*256)))]:=$00FF00;
// 27-16 разряд
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ch:='0';
edit1.Text:=ch;
end;

end.

В 2х словах - есть устройство - двухканальное АЦП,которое подключается на PCI шину, входит 2 сигнала, оцифровываются, записываются в массив (buffO). Как сделать так, что бы при нажатии на кнопку (расположенную на форме) этот массив записывался в excel файл.
Заранее спасибо!

[baster128]

Открывай Exel и записывай, а потом фай сохраняй.

....
ExcelApplication1.Visible[LOCALE_USER_DEFAULT]:=true;
ExcelApplication1.SheetsInNewWorkbook[LOCALE_USER_DEFAULT]:=1;
ExcelWorkbook1:=ExcelApplication1.Workbooks.Add(EmptyParam,LOCALE_USER_DEFAULT);
ExcelWorksheet1:=Excelapplication1.ActiveWorkbook.ActiveSheet as ExcelWorkSheet;
....

Начиная помоему с 6 делфи эти компоненты есть

[ikostalker]

К сожалению я не программист
Можно ли обьяснить как "для домохозяек" . Какие компоненты добавить в проект, какие процедуры сохранения и тп
Буду очень благодарен.