Delphi+Excel ошибка в коде

[Tirendus]

Привествтую всех. Пожалуйста подскажите где я допустил ошибку в коде.

procedure TForm1.Button1Click(Sender: TObject);
var
XL: variant;
i: integer;
from, towhere,name,scrdir:string;
begin
from:='D:\work\Kiver\gamefiles\';
towhere:='D:\work\Kiver\FILES\';
scrdir:='D:\work\Kiver\images\';
i:=2;
opendialog1.execute;
name:=opendialog1.FileName;
  try
  XL:= CreateOLEObject('Excel.Application');
  XL.visible:=false;

  repeat
    copyfile(pchar(from+string(XL.cells[i,2].value)+'.jar'),pchar(towhere+string(XL.cells[i,1].value)+'\'+string(XL.cells[2,3].value)+'_'+string(XL.cells[i,1].value)+'.JAR'),true); // на эту часть ругается компилятор
    copyfile(pchar(from+string(XL.cells[i,2].value)+'.jad'),pchar(towhere+string(XL.cells[i,1].value)+'\'+string(XL.cells[2,3].value)+'_'+string(XL.cells[i,1].value)+'.JAD'),true);
    copyfile(pchar(scrdir+string(XL.cells[i,4].value)+'\'+'ICO.GIF'),pchar(towhere+string(XL.cells[i,1].value)+'\ICO.GIF'),true);
    copyfile(pchar(scrdir+string(XL.cells[i,4].value)+'\'+'SPLASH.GIF'),pchar(towhere+string(XL.cells[i,1].value)+'\SPLASH.GIF'),true);
    copyfile(pchar(scrdir+string(XL.cells[i,4].value)+'\'+'INGAME.GIF'),pchar(towhere+string(XL.cells[i,1].value)+'\INGAME.GIF'),true);
    copyfile(pchar(scrdir+string(XL.cells[i,4].value)+'\'+'BANNER.GIF'),pchar(towhere+string(XL.cells[i,1].value)+'\BANNER.GIF'),true);
    copyfile(pchar(scrdir+string(XL.cells[i,4].value)+'\'+'ANI.GIF'),pchar(towhere+string(XL.cells[i,1].value)+'\ANI.GIF'),true);
    inc(i);
  until XL.cells[i,2].value = '';


  finally
  XL.Quit;
  end;
end;

Ругается именно при исполнении кода, при компиляции всё вроде нормально

[Serge_Bliznykov]

value)+'.JAR'),true); // на эту часть ругается компилятор

так кто всё таки ругается? Компилятор? или Ваша программа при выполнении?

думаю, что проблема в исходных данных. Ну, например, какая-то ячейка в Excel файле пустая.. или там не текст...
короче, Вам прямой путь в пошаговую отладку!
или выкладывайте xls файл, на котором программа срубается, будем смотреть...

[soleil@mmc]

1) ну и хороший стиль когда
не так

opendialog1.execute;

а так

if opendialog1.execute then 
begin
....

end;

2) и для всех этих действий в принципе можно написать одну функу

[Tirendus]

soleil@mmc
да, спасибо, стиль кода мне сейчас больше всего нужен, я как раз ради стиля кода создавал эту тему, огромное спасибо.

Serge_Bliznykov
Ругается программа, в процессе выполнения, а в экселе все ячейки заполнены правильно, проверял и перепроверял.

[soleil@mmc]

Сообщение от Tirendus

Ругается программа, в процессе выполнения, а в экселе все ячейки заполнены правильно, проверял и перепроверял.

вот у меня собака и она тоже ругается, но обычно сразу ясно на что или на кого
так что текст ошибки в студию (а лучше скрин)

[Tirendus]

Спасибо за содействие, нашел в чем проблема. Нехватало этой сооовсем малонужной вещи. :-)

XL.workbooks.add