ListBox Tastatur- bzw. Worteingabe

[Christoph]

Hallo,

leider bin ich bei diesem Problem noch nicht wirklich weiter gekommen.
Bislang kann ich immer nur ein einziges Zeichen 'abfangen'.
Hier ein Auszug aus dem Code (Codeschnipsel aus diesem Forum, gekürzt):

Delphi-Quellcode:

function TForm1.GetKey(Key: Word): String;
begin
  case Key of
    VK_NUMPAD6   : Result := 'VK_NUMPAD6';
    VK_NUMPAD7   : Result := 'VK_NUMPAD7';
    VK_NUMPAD8   : Result := 'VK_NUMPAD8';
    VK_NUMPAD9   : Result := 'VK_NUMPAD9';
    VK_MULTIPLY  : Result := 'VK_MULTIPLY';
    VK_ADD       : Result := 'VK_VKADD';
    VK_SEPARATOR : Result := 'VK_SEPARATOR';
    VK_SUBTRACT  : Result := 'VK_SUBTRACT';
    VK_DECIMAL   : Result := 'VK_DECIMAL';
    VK_divIDE    : Result := 'VK_divIDE';
  else
    Result := 'Zeichentaste: '+ Chr(Key);
  end;
end;

Delphi-Quellcode:

procedure TForm1.ListBoxKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Zeichen: string;
begin
  Zeichen:=GetKey(Key);
  Form1.Memo.Text:=Zeichen;
end;

Damit bekomme ich aber immer nur ein einzelnes Zeichen. Ich möchte die ersten vier bis fünf Zeichen abfangen, nacheinander in einen String schreiben und dann den so erzeugten String mit dem Eintrag in der Listbox abgleichen.

Kann jemand helfen?

Danke und Gruß,
Christoph