Экспорт данных в StringGrid Опции

[Sanya01078]

У меня есть вопрос как будет выглядеть функция для загрузки данных в StringGrid из OpenOffice.Calc??

У меня есть функция для загрузки данных из Excel в StringGrid!

function xls_to_stringgrid(agrid: tstringgrid; axlsfile: string): boolean;
 const
xlcelltypelastcell = $0000000b;
var
xlapp, sheet: olevariant;
rangematrix: variant;
x, y, k, r: integer;
begin
result := false;
xlapp := createoleobject('excel.application');
try
xlapp.visible := false;
 
xlapp.workbooks.open(axlsfile);
 
sheet := xlapp.workbooks[extractfilename(axlsfile)].worksheets[1];
sheet.cells.specialcells(xlcelltypelastcell, emptyparam).activate;
 
x := xlapp.activecell.row;
y := xlapp.activecell.column;
 
agrid.rowcount := x+1;
agrid.colcount := y+1;
 
rangematrix := xlapp.range['a1', xlapp.cells.item[x, y]].value;
 
k := 1;
repeat
for r := 1 to y do
agrid.cells[(r ), (k )] := rangematrix[k, r];
inc(k, 1);
agrid.rowcount := k ;
until k > x;
 
rangematrix := unassigned;
 
finally
 
if not varisempty(xlapp) then
begin
xlapp.quit;
xlapp := unassigned;
sheet := unassigned;
result := true;
end;
 end;
 end;

Если кто-то сталкивался с данной проблемой отпишитесь!!
За ранее всем СПАСИБО!