Objekte An Dynamische erstellte Form übergeben

[Nightwolf]

Hallo,

ich habe ein Problem was wahrscheinlich ich soll eine Dynamische Form erstellen und dieser Form ein Objekt übergeben.

aber irgendwie bin ich da zu dumm zu.

Code:

//////////MainForm///////////////////////7
procedure TForm13.Button1Click(Sender: TObject);
begin
              with

         TForm12.Create(self)
         do
         try

           Showmodal;
           if (ModalResult  = mrOK) then
           begin
                test1;
           end;


         finally
                 free();

         end;
end;

////////////erstellte Form////////////////////7


procedure TForm12.Button1Click(Sender: TObject);
begin
Label1.Caption := test.ValueFromIndex[0];
end;

procedure TForm12.FormCreate(Sender: TObject);
begin
          test := TStringList.Create;
end;

function TForm12.ReadTest: TStringList;
begin


        result :=test;
end;

procedure TForm12.SetWriteTest(const Value: TStringList);
begin
               test.Assign(Value);
end;



end.

irgendwas mache ich falsch bei der übergabe von dem Objekt.
Wäre nett wenn mir jemandhelen könnte.


im vorraus Danke.