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:

procedure TForm1.Edit1Change(Sender: TObject);
var i,p: Integer;
    Gefunden: Boolean;
    Suchwort,s: string;
begin
 Suchwort:=Edit1.Text;
 Suchwort:=trim(Suchwort);
 if Suchwort <>'' then
  begin
   Gefunden:=false;
   i:=-1;
   while (i<ListBox1.Items.Count-1)and not gefunden do
    begin
     Inc(i);
     if Pos(Suchwort,ListBox1.Items[i])=1 then Gefunden:=True;
    end;
    if Gefunden
     then begin ListBox1.ItemIndex:=i;
          s:=ListBox1.Items[ListBox1.ItemIndex];
          p:=Pos('=',s);
          Delete(s,1,p+1);
          Edit2.Text:=s;
          end
     else
      ShowMessage('Suchwort wurde nicht gefunden');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

for i := 0 to StringList.Count-1 do
  if StringList.Names[i] = Word1 then
  begin
    Word2 := StringList.ValueFromINdex[i];
    Exit;
  end;

for i := 0 to StringList.Count-1 do
  if StringList.ValueFromIndex[i] = Word1 then
  begin
    Word2 := StringList.Names[i];
    Exit;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure OnClickHandler;
begin
  if OnClickCalled then Exit;

  OnClickCalled := True;
  try
    { ... }
  finally
    OnClickCalled := False;
  end;
end;