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;