Invalid Class Typecast

[Wuaegner]

Die aus meinem Titel, dachte das wäre klar .
Nochmal etwas mehr Code:

Delphi-Quellcode:

procedure TForm1.DigitaleRckwrtssuchemiteinbeziehen1Click(Sender: TObject);
var
  KeyInputs: array of TInput;
  KeyInputCount: Integer;
  wnd: HWND;
  s: string;

  procedure KeybdInput(VKey: Byte; Flags: DWORD);
  begin
    Inc(KeyInputCount);
    SetLength(KeyInputs, KeyInputCount);
    KeyInputs[KeyInputCount - 1].Itype := INPUT_KEYBOARD;
    with  KeyInputs[KeyInputCount - 1].ki do
    begin
      wVk := VKey;
      wScan := MapVirtualKey(wVk, 0);
      dwFlags := KEYEVENTF_EXTENDEDKEY;
      dwFlags := Flags or dwFlags;
      time := 0;
      dwExtraInfo := 0;
    end;
  end;
begin

  // Markierte Nummer in Zwischenablage
if (Sender as TListBox).Items.Count > 0 then  // HIER KOMMT DIE FEHLERMELDUNG
  begin
   s:= (Sender as TListBox).Items.Strings[(Sender as TListBox).ItemIndex];
   // Wenn Nummer nicht mit 0 beginnt setze 07433 davor
   if s[1]<>'0' then
   s:= '07433'+ s;

   ClipBoard.AsText:= s;
  end;