tmemo zur laufzeit erstellen

[Exuz]

Hi
Ich habe da folgendes Problem:
Ich will während das Programm läuft in einem pagecontrol weitere tabs erzeugen...soweit so gut...nun erzeuge ich darin ein memo-feld...so und nun mein PROBLEM:
Wie komme ich nachträglich an den namen von dem memofeld...hier mal etwas von dem code den ich benutze:

Mein Vars:

Delphi-Quellcode:

implementation
var namez :array[0..9] of string;
var mymemo:tmemo;

Der Code:

Delphi-Quellcode:

with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
             Caption := InputBox('Tab-Caption', 'Caption eingeben', 'Standard-Tab');
             name:=InputBox('Tab-Name', 'Namen eingeben', '');
             end;
   namez[(pagecontrol1.PageCount)-1]:=InputBox('Array-text', 'Text eingeben', '');
   mymemo:=Tmemo.Create(Pagecontrol1.ActivePage);
  with Mymemo do
begin
Parent := pagecontrol1.Pages[(pagecontrol1.PageCount)-1];
mymemo.Align:=alclient;
name:='m'+pagecontrol1.Pages[(pagecontrol1.PageCount)-1].Name;
    end;
end;

Wenn ich nun mit "mymemo.name" anfange bekomme ich immer nur den namen vom neuesten memo-feld...das ist aber nicht mein zuiel da ich mehrere tabs für einen editor brauchen und den namen und die felder beim speichern auslesen will...

kann mir da jemand helfen??

Schon einmal danke im vorraus!

Exuz