Typecast ohne Typ zu kennen?

[Sprint]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  S_CAPTION = 'Caption';
var
  Count: Integer;
  PropList: PPropList;
  I: Integer;
begin

  Count := GetPropList(Sender, PropList);
  if Count > 0 then
  begin
    for I := 0 to Count - 1 do
      if PropList[I].Name = S_CAPTION then
        if PropList[I].PropType^.Kind = tkLString then
        begin
          SetStrProp(Sender, S_CAPTION, 'Hello World!');
          Break;
        end;
    FreeMem(PropList);
  end;

end;