Ole Excel Spaltenlänge herausfinden

[eragon123]

Ok hab jetzt:

Delphi-Quellcode:

procedure TForm1.btngoClick(Sender: TObject);
var Verz: string; i,xmin,xmax,ymin,ymax:Integer;  Excel: Variant; 

  // Excel öffnen und auslesen
  // 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

  XLSheet := Excel.ActiveWorkbook.Worksheets[1];
  xMin := 1;
  yMin := 1;
  xMax := XLSheet.UsedRange.Columns.Count;
  yMax := 1;
  namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varString);
  namensliste := XLSheet.UsedRange.Value;

  Excel.Activeworkbook.saved := True;
  Excel.workbooks.close;
  Excel.quit;
  Excel := unassigned;

Aber es funktioniert noch nicht. Deshalb ein paar Fragen:
ist

Delphi-Quellcode:

XLSheet: Variant;
namensliste: array of string;

korrekt?

Oder muss ich nen array of variant oder so ähnlich nehmen um das zu speichern?
Ich brauche das später nämlich nur noch als Strings.