[~ SaM ~]

Есть код.

Код:

var s:shortstring;
    i:integer;
begin
if not createexcel then begin application.MessageBox('Íå óäàëîñü çàïóñòèòü Excel.','Îøèáêà',mb_OK);end else begin
OpenWorkBook(getcurrentdir+'\xls\new.xls');
VisibleExcel(false);
for i:=1 to 400 do begin
s:=Getrange(4,'A'+inttostr(i));
stringgrid1.Cells[0,i]:=s;
end;
for i:=1 to 400 do begin
s:=Getrange(4,'B'+inttostr(i));
stringgrid1.Cells[1,i]:=s;
end;
for i:=1 to 400 do begin
s:=Getrange(4,'C'+inttostr(i));
stringgrid1.Cells[2,i]:=s;
end;
CloseWorkBook;
CloseExcel;

Все без ошибок и нормально работает, но импортируется не 400 строк, а только 86 и не больше! Почему так?Может кто сталкивался с такой проблемой? Рылся в инэте, находил кучу функций и процедур, но все заканчивается одним и тем же!