Delphi-PRAXiS - Delphi onKeyPress Denkfehler?!

Moin,

ich habe offensichtlich einen Denkfehler mit onKeyPress und dem Zeichen #08 (Back).
Ich verwende noc D5 und a gibt es keinen Autocomplete in Editfeldern, also ha ich mir was ausgedacht, was anundfürsiih klappt, tja bis auf eben...

Delphi-Quellcode:

			procedure TMainForm.Such_Box_1KeyPress(Sender: TObject; var Key: Char);

var i, j, x : integer;

    item : TListitem;

    s : string;

begin

   if Key = #08 then begin

      if Such_Box_1.SelStart <> Length(Such_Box_1.Text) then begin

         Such_Box_1.SelStart := Such_Box_1.SelStart -1;

         Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart   ;

         Such_Box_1.SelText;

         Such_Box_1.ClearSelection;

         end;

      end;

   s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);

   if Key = #08 then s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart )) else

                     s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);

   x := length(s) ;

   trim(s);          // enthält noch #08 Zeichen!

  if s <> '' then

     for i := 0 to SuchListe_C.count -1 do begin

     if Ansipos(s, ansilowercase(SuchListe_C.strings[i])) = 1 then begin

        Such_Box_1.SelectAll;

        Such_Box_1.Clear;

        Such_Box_1.Text := Suchen_LV.Items[i].SubItems[1] ;

        Such_Box_1.SelStart := x ;     // Suchstring incl Taste

        Key := #08;     // Muß, sonst doppeltes Zeichen

        Suchen_LV.Selected := Suchen_LV.Items[i];

        item := Suchen_LV.items[i];

        Item.MakeVisible(true);

        Suchen_LV.hideselection := false;

        break;

        end;

     end;

end;

procedure TMainForm.Such_Box_1KeyUp(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  Such_Box_1.setfocus;

  // Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart +1 ;  // org

  Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart  ;

  Such_Box_1.SelText;

end;

Problem:
User tippt Buchstabe, Liste wird geprüft, Eintrag liegt vor und Edit.text wird umgeschrieben, ab Cursor bleibt es markiert.
Ist aber der Cursor an letzter Stelle (weil Eintrag nicht länger ist) und User drückt #08 (Back-Taste) dann werden direkt 2 Zeichen gekillt, oder aber, wenn ich
versuche #08 abzufanen (if Key =/<> #08) findet er die Listeneinträge nicht, weil der Suchstring Zeichen #08 noch drankleben hat.

Liste:
Affaire
Affe
Affekt
Affen

Habe ich Affen stehen, und lösche das letzte Zeichen (#08) springt die Routine auf 'Affaire', statt auf Affe und blockiert #08, weil die gekoppelte Suchroutine 'Affaire' findet.

Wo liegt mein Denkfehler?
Wann wird Key #08 Delphiintern wirklich umgesetzt - vorher - hinterher?

Danke