No.1
var
vComponent: TComponent;
begin
vComponent := FindComponent('Edit1');
if Assigned(vComponent) then TEdit(vComponent).Text := '你好';
end;
var
vComponent: TComponent;
begin
vComponent := FindComponent('Edit1');
if Assigned(vComponent) then TEdit(vComponent).Text := '你好';
end;
uses
TypInfo;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SetStrProp(Self, 'Caption', '你好');
end;