Frage zum "is"-Operator

[QStorm]

Hallo,

Ich habe eine Frage zum "is"-Operator. Soweit ich das nachvollziehen konnte prüft er, ob der Pointer von einem bestimmten Typ ist. Ich würde jedoch gerne wissen ob das Objekt, auf das der Pointer zeigt, von einem bestimmten Typ ist.

Hintergrund: Ich bekomme von TForm.ActiveControl einen Pointer auf ein Objekt, das nicht vom Typ TWinControl ist. Das führt im weiteren Verlauf zu einer Access Violation, da ich auf nicht existente Methoden zugreife.

Wie kann man herausbekommen, ob das Objekt, auf das ein Pointer zeigt, von einem bestimmten Typ ist?

Hier ein Beispiel-Code, mit dem man das ganze nachvollziehen kann:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  stringList : TStringList;
  obj     : TObject;
  control : TWinControl;
begin
  stringList := (TStringList.Create);
  obj := TObject(stringList);
  control := TWinControl(obj);
  control.ClassType

  if (control is TWinControl)
  then ShowMessage('True')
  else ShowMessage('False');
end;

Ich habe im Forum und restlichen Internet leider kein passendes Thema gefunden.
Falls es ein doch bereits eines gibt, verzeiht mir den Doppel-Post.

Vielen Dank im Voraus