Vergleich Eingabe Edit-Feld mit Excelfeld

[Sanni13]

Hallo,

ich möchte gern herausfinden, ob eine Eingabe bereits in einer zugewiesenen Exceltabelle vorhanden ist. Dazu habe ich folgenden Quelltext geschrieben:

Delphi-Quellcode:

var Excel: OleVariant;
    i, MaxRow:Integer;
begin
  try
   Excel := CreateOleObject('Excel.Application');
  except
   ShowMessage('Excel konnte nicht gestartet werden !');
   Exit;
  end;
  Excel.Workbooks.Open('C:\Users\Programm.xls');
  Excel.Visible := true; 
  MaxRow := Excel.Rows.Count;
  for i:=1 to MaxRow do
    if Edit1.Text=Excel.Cells.Item[i,1].Value then
      ShowMessage('wird in der Datei verwendet');
end;

Das Programm lässt sich starten, zeigt mir jedoch in der Ausführung den Fehler: "Press ok to risk data corruption. Press cancel to kill the program" an. Außerdem wird auch die Nachricht nicht angezeigt, wenn der eingegebene Text in Edit1 mit dem in einer Zelle übereinstimmt. Sehe leider den Fehler nicht und hoffe ihr könnt mir helfen!