[lmikle]

вот так не подойдет:

Код:

uses TypInfo;

procedure TForm1.test(prop : String);
begin
  SetPropValue(Edit1,prop,'aaaaa');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test('Text');
end;