Thank you for reply.
But well you are not quite right, here is sample how to do it using buffer.
var XLApp, XLSheet, wb, r : Variant;
i, RowNo : integer;
begin
XLApp := CreateOleObject('Excel.Application');
wb := XLApp.WorkBooks.Add;
XLApp.SheetsInNewWorkBook := 1;
XLSheet :=...