Fehler bei Index

[SaFu]

Also bei mir tut sich garnichts was mach ich falsch

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
var  sFoundName: String;
begin
with Query1 do
begin
  SQL.Clear;
  SQL.Add('Select * From Artikel.db');
  SQL.Add('Where Artikel=:Artikel');
  ParamByName('Artikel').AsString:= Edit2.Text;  /// normaler TEdit
  Open;
  try
   if not Query1.EOF  then
    begin
      sFoundName:= FieldByName('Artikel').AsString;
      showmessage(sFoundName);

     // bei mehreren Suchergebnissen folgendes
      while not EOF do
      begin
        sFoundName:= FieldByName('Artikel').AsString;
       // mache was mit sFoundName

        Next;
      end;
    end;
  finally
    Close;
  end;
 end;
end;