Suchen Kunden in der Combobox bei Namensähnlichkeiten

[focus]

Tach auch,
ich habe meine Combobox so gefüllt( siehe unten), aber die Kunden zb. Kreuz, Alte und Hase stehen nicht drin weil ich noch Kunden habe die Kreuzkamp, Alte-Stadt und Haselünner heissen.
Was muss ich ändern?

Delphi-Quellcode:

 if not Table1.Active then exit;
  combobox3.Clear;
  combobox3.Sorted := true;
  Table1.First;
  while not Table1.Eof do begin
///*********************
   if table1['D_Kunde'] = ComboBox2.Items[ComboBox2.ItemIndex] then begin
///*********************
    u := trim(Table1.FieldByName('D_Ort').AsString);
    if u <> '' then begin
    l := combobox3.Perform(CB_FINDSTRING, -1, LongInt(PChar(u)));
      if (l = CB_ERR) or ((l = 0) and (combobox3.Items.Count = 0)) then begin
        combobox3.Items.Add(u);
      end;
    end;
///**********
    end;
    //****

[Edit=Sakura]DELPHI-Tags gesetzt.[/Edit]