Здравствуйте, Flamer, Вы писали:

F>Код в студию, плз... Провидцы все в отпуске :-

procedure TRaportAll.Execute;
begin
  WriteReport;
end;
==============================
  TRaportEner = class(TRaportAll)
  protected
    procedure WriteReport; override;
  end;
==============================
procedure TRaportEner.WriteReport;
Var
 q,i,j,k,kk : Integer;
 NameShab,NameJur,KL,
    probel,s,sk,DJ,ss : AnsiString;
    ik : Array[1..25] of Integer;
begin

   NameShab:='EnerShab';
   NameJur:='EnerJur';

    k:=0;

    CoInitialize(nil);
    try
    xl:=CreateOleObject('Excel.application');
    except
      MessageDlg('Произошла ошибка при создании объекта Excel',mtError,[mbOk],0);
      exit;
    end;
    xl.DisplayAlerts:=False;

Далее не важно поскольку сюда процесс не доходит.