1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var anzahl,i,posi,fundstellen : integer;
begin
  Table1.DisableControls;
  Table1.First;
  anzahl := Table1.RecordCount;
  i := 1;
  ComboBox1.Clear;
  fundstellen := 0;
  while not Table1.Eof do
  begin
    if i = 1 then
      Table1.First
      else
        Table1.Next;
    if anzahl >= i then
      begin
        posi := pos(Edit1.Text, Table1.FieldByName('FELDNAME').AsString);
        if posi <> 0 then
        begin
          fundstellen := fundstellen + 1;
          label13.caption := IntToStr(fundstellen);
          ComboBox1.Items.Add(IntToStr(i));
        end
        else
          label13.caption := IntToStr(fundstellen);
      end;
    i := i + 1;
  end;
  Table1.EnableControls;
end;