GetPropValues: Eigenschaft ... existiert nicht

[CVo]

Hallo,

ich möchte per Variable ein Property eines Objects auslesen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, typinfo, stdctrls;

type
  TForm1 = class(TForm)
    procedure FormDblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


  TTest = class(TObject)
  private
    test1 : String;
    test2 : integer;
  published
    property gettest1 : string read test1 write test1;
  end;

var
  Form1: TForm1;
  t1, t2 : TTest;

implementation

{$R *.dfm}


procedure TForm1.FormDblClick(Sender: TObject);
begin
  t1 := TTest.Create;
    t1.test1 := 'hallo';
    t1.test2 := 1;

  t2 := TTest.Create;
    t2.test1 := 'hallo2';
    t2.test2 := 2;


  showmessage(GetPropValue(t1,'gettest1'));
end;

end.

Aber beim Ausführen bekomme ich stets "Eigenschaft gettest1 existiert nicht.".
Wie müsste denn die Funktion richtig lauten?

Vielen Dank schon mal
Christian