Stack Überlauf in der IDE

[little_budda]

Hallo,

ich verwende folgende Prozedur unter D5 Pro.

Delphi-Quellcode:

procedure Tfrm_main.Vergleichstarten1Click(Sender: TObject);
const xlCellTypeLastCell = $0000000B;
var XlApp1, XlSheet1: OLEVariant;
    iLastRow1, iLastCol1: integer;
    iLastRow2, iLastCol2: integer;
    iAnzahlBlaetter1 : integer;
    iAnzahlBlaetter2 : integer;
    iSheetIndex, iColIndex, iRowIndex : integer;
    iAktRow3 : integer;
    workBook1 : array [1..50, 1..50, 0..100] of string[50]; // Sheet, Col, Row.
    workBook2 : array [1..50, 1..50, 0..100] of string[50]; // Sheet, Col, Row.
    sStrValue1, sStrValue2 : string;
begin
  if ((sBaseFile1 = '') or (sBaseFile2 = '') or (sBaseFile3 = '')) then
    begin
      MessageDlg('Ein oder mehrere Tabellen wurden nicht angegeben.', mtError, [mbOk], 0);
      exit;
    end;
 ...

Sobald in die Prozedur gesprungen wird bleibt die IDE auf der ersten Zeile hängen und meldet Stack-Überlauf.
Ich habe das CPU Fenste mal angehangen.

Hat jemand eine Idee für mich?