Vergleich Eingabe Edit-Feld mit Excelfeld

[Jumpy]

Versuch es mal so mit ActiveSheet:

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.ActiveSheet.UsedRange.Rows.Count; //hier
  for i:=1 to MaxRow do
    if Edit1.Text=Excel.ActiveSheet.Cells[i,1].Value then //und hier
      ShowMessage('wird in der Datei verwendet');

  //Jetzt auch noch mal ein bißchen aufräumen:
  Excel.ActiveWorkbook.Close(False);
  Excel.Quit; //?
  Excel:=Nothing/nil // k.A. wie das bei OleVariants nochmal genau ging
end;

Ansonsten nochmal mit zusätzlichen Variablen für Workbook und Worksheet versuchen, dann kann man besser debuggen.