Suchen Kunden in der Combobox bei Namensähnlichkeiten

[focus]

Hallo Mitchl,
vielen Dank für dein Interesse und deine aufmunternen Worte .
Also Delphipraxis Combobox sortieren und filtern! hatte ich
auch schon gelesen. Ich hatte hier leider die falsche Routine rein-
kopiert und Du hast Recht damit, dass ich in dieser Routine nach dem Ort
sortiere.
So hier jetzt die Sortierung nach den Kunden:

Delphi-Quellcode:

procedure TForm60.FormActivate(Sender: TObject);
begin
if not Table2.Active then exit;
  combobox2.Clear;
  combobox2.Sorted := true;
  Table2.First;
  while not Table2.Eof do begin
    t := trim(Table2.FieldByName('D_Kunde').AsString);
    if t <> '' then begin
      k := combobox2.Perform(CB_FINDSTRING, -1, LongInt(PChar(t)));
      if (k = CB_ERR) or ((k = 0) and (combobox2.Items.Count = 0)) then begin
        combobox2.Items.Add(t);
      end;
    end;
    Table2.Next;
  end;

Und hier ist halt das Problem mit den Kunden.
focus grüßt

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]