Klasse von TTHread ableiten und Interface implementieren, Objekt erstellen

[mika]

Hallo Forum,

lang ists her das ich hier mal was gepostet habe Da ich aber jetzt wieder vermehrt mit Delphi arbeite würde ich gerne mal eine Frage stellen.

Ich habe eine Klasse geschrieben, die abgeleitet von TThread ist und ein Interface implementiert, so als Beispiel:

Code:

type
  TMeineKlasse = Class(TThread, IInterfaceMein)
  end;

  TZweiteKlasse = Class(TInterfacedObjekt, IInterfaceZwei)
  end;

Bei TZweiteKlasse gelingt folgender aufruf, bei TMeineKlasse leider nicht, woran kann es liegen?

Code:

var
  meinInterface: IInterfaceMein;
  zweiInterface: IInterfaceZwei;
begin
  meinInterface := TMeineKlasse.Create AS IInterfaceMein;  // Operator ist auf Operand nicht anwendbar
  zweiInterface := TZweiteKlasse AS IInterfaceZwei; // Geht
end;

Gibt es irgendwas einfaches das ich vergessen habe? Oder liegt es daran das eine Klasse von TTHread abgeleitet wurde?

Mfg, Mika