TMemo(Button1)这什么这样转换也能成功？该怎么解决

TMemo(Button1)这什么这样转换也能成功？
TMemo(Button1)，TForm(Button1)这什么这样转换也能成功？

[解决办法]
1、第一段代码以前有人讨论过，和编译器有关，不建议这样用
2、第二段代码中TStringList类没有Caption属性成员
TStringList - TStrings - TPersistent
TForm - TCustomForm - TScrollingWinControl - TWinControl - TControl - TComponent - TPersistent
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var a:TStringList;begin  TForm(a).Caption := 'xxxoo'end;