Ole Excel Spaltenlänge herausfinden

[eragon123]

Ich habe mit googeln leider nichts finden können. Daher frage ich hier mal nach. Ich steuere Excel per OLE mit meinem Delphiprogramm. Das soll ne Datei öffnen und die gesammte erste Spalte kopieren in ein array, da ich das später dann brauche. Jetzt weiß ich aber die genaue Länge der Spalte nicht (damit ist gemeint bis wohin da Werte drinstehen). Wie bekomme ich das raus? Bei meinem Text meckert er immer. Hier mal mein QT (Ausschnitt):

Delphi-Quellcode:

// Excel starten
  try
    Excel :=  CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Exit;
  end;

  // Laden
  try
    Excel.workbooks.open(edtquelle.Text);
  except
    ShowMessage('Datei konnte nicht geöffnet werden');
    Excel.free;
    Exit;
  end;

  // Daten Kopieren
  menge := Excel.activeworksheet.range['A1','A1'].EntireColumn;

  setlength(namensliste,0);
  for i := 1 to menge do
  begin
    SetLength(namensliste,Length(namensliste)+1);
    namensliste[i-1] := excel.cells[inttostr(i),1].value;
  end;

So müsste das ja theoretisch gehen. Bloß der Befehl um in "Menge" die Länge der Spalte reinzuschreiben geht nicht. Hoffe auf Tipps