Люди добрые помогите найти ошибку

[Ромыч]

Люди помогите пожалуйста найти ошибку в коде:

var
  Form1: TForm1;
  wb: TExcelWorkbook;
  sheet:_Worksheet;
  filename: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:      integer;
    letter,
    group,
    okp:    String;
begin
  if Length(LabeledEdit1.Text)<=0 then
  begin
    ShowMessage('Сообщение');
    exit;
  end;

  if ((Length(StartRowEdit.Text)<=0)or(Length(EndRowEdit.Text)<=0)) then
  begin
    ShowMessage('Сообщение');
    exit;
  end;

  try
    StrToInt(StartRowEdit.Text);
    StrToInt(EndRowEdit.Text);
  except
    ShowMessage('Сообщение');
    exit;
  end;

  ProgressBar1.Step:= 3;
  ProgressBar1.Max:= StrToInt(EndRowEdit.Text);
  ProgressBar1.Min:= StrToInt(StartRowEdit.Text);
  ProgressBar1.Position:= 0;
  ProgressBar1.Visible:= true;

  try
    filename:= LabeledEdit1.Text;

    app.Connect;


    app.Workbooks.Open(filename,emptyparam,true,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
                                    emptyparam,emptyparam,emptyparam,emptyparam,1000);


    sheet:= app.ActiveWorkbook.Worksheets[1] as _WorkSheet;

    Memo1.Lines.Clear;

    for i:=ProgressBar1.Min to ProgressBar1.Max do
    begin
      if ((i mod ProgressBar1.Step) = 0) then ProgressBar1.StepIt;

      letter:= sheet.Cells.Item[i,3];

   
      group:= sheet.Cells.Item[i,4];


      okp:= AnsiReplaceText(sheet.Cells.Item[i,5],' ','');

  
      Memo1.Lines.Add(IntToStr(i)+') '+letter+' --- '+group+' --- '+okp);
    end;

    ProgressBar1.Visible:= false;

    ShowMessage('Сообщение');

   
    app.Disconnect;

    app.Application.Quit;

    except on e:Exception do
    begin

      app.Disconnect;
      app.Application.Quit;


      ShowMessage('ERROR: '+e.Message+#13+' i='+IntToStr(ProgressBar1.Position));
    end;

  end;//try...except


end;

Ошибка в этом куске кода:

    app.Workbooks.Open(filename,emptyparam,true,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
                                    emptyparam,emptyparam,emptyparam,emptyparam,1000);

[Error] Unit1.pas(82): Not enough actual parameters

[Карась]

Судя по этому http://msdn2.microsoft.com/en-us/lib...5x(VS.80).aspx ты пропустил ещё один параметр...

И в ошибке это также написанно.....

this.Application.Workbooks.Open(@"C:\YourPath\YourWorkbook.xls",
    missing, missing, missing, missing, missing, missing, missing,
    missing, missing, missing, missing, missing,missing, missing);