PageControl - Problem

[Tommy1988]

Also,

vor längerer Zeit habe ich mal angefangen einen Editor zu schreiben, den ich seither stetig weiterentwickle.

Nun habe ich ein PageControl eingebaut, welches zum Tabbes-Browsing dient. (Heißt es so?)
Klick auf Button = Neues Tab mit neuem Memo wird erstellt. (MemoX) , X fortlaufend.

Mit folgendem Code lasse ich mir (NUR für mich zum "sehen") anzeigen welches Tab aktiv ist.

Delphi-Quellcode:

procedure TForm1.PageControl2Change(Sender: TObject);
begin
 with PageControl2 do
  begin
   showmessage(ActiveMemo.Name);
   GetCurrentSyn.BringToFront;
  end;
end;

Die dazugehörige Funktion:

Delphi-Quellcode:

function TForm1.ActiveMemo: TMemo;
begin
  Result := nil;
  with PageControl2 do
   if ActivePage.ControlCount > 0 then
    begin
     if ActivePage.Controls[0] is TMemo then
      begin
       Result := (TMemo(ActivePage.Controls[0]));
      end else
       begin
        if Result = nil then
        Result := MainMemo;
       end;
   end;
end;

So.. mein Problem:
Wie kann ich jetzt das aktive Memo speichern?

Mit EINEM Memo habe ich es so gemacht:

Delphi-Quellcode:

try
if Saved then exit; // Saved wird true, wenn datei schonmal "abgespeichert" wurde.
// das hier unten ist "Schnellspeicherung"
     if FileExists(Fn) then
      begin
       Memo1.Lines.SaveToFile(Fn);
       Saved := True;
       ShortFn := ExtractFilename(Fn);
       TBXStatusBar1.Panels[3].Caption := '';
      end else
       begin
        TBXItem3Click(self);
        TBXItem2.Enabled := False;
        TBXItem42.Enabled := False;
        TBXStatusBar1.Panels[3].Caption := '';
       end;
except
//
end;

Ich habe schon an ein Array gedacht, weis aber nicht wie ich was damit umsetzen soll