[omaryan]

Код:

uses
  TypInfo;

type
  TMyType = class
  private
    FCaption: String;
  published
    property Caption: String read FCaption write FCaption;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X: TMyType;
begin
  SetStrProp(Sender, 'Caption', 'Test');
  ShowMessage('Wow');

  X := TMyType.Create;
  try
    SetStrProp(X, 'Caption', 'Test'); // Ooops
  finally
    FreeAndNil(X);
  end;
end;

Почему я не могу использовать SetStrProp(X, 'Caption', 'Test'), и как это исправить?