Ein Frame mit einem String mehrmals erstellen?

[b00gie]

okay, weiter gehen die Probleme... Also ich erstelle ja dynamisch ein Sheet und auf diesem Sheet wird ein dynamisch ein Frame geladen. Zum Test liegt auf dem Frame ein Memo1. Dies lädt Daten aus Dateien. wie kann ich nun aus der Hauptanwendung auf die Variablen der dynamischen Frames zugreifen?

Hier der Source

Delphi-Quellcode:

uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet: TTabSheet;
  iFrame: TFrame2;
begin
  Sheet := TTabSheet.Create(PageControl1);
  Sheet.PageControl := PageControl1;
  Sheet.Parent := PageControl1;
  Sheet.Name := 'Sheet_' + IntToStr(i);

  iFrame := TFrame2.Create(Sheet);
  iFrame.Parent := Sheet;
  iFrame.Name := 'Frame_' + IntToStr(i);
  iFrame.Align := alClient;
  iFrame.Load(IntToStr(i)+'.ini');
  i := i + 1;
  PageControl1.ActivePageIndex := Sheet.PageIndex;
end;

und hier das Frame

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFrame2 = class(TFrame)
    Memo1: TMemo;
    procedure Load(Name: String);
  private
    { Private declarations }
  public
    { Public declarations }
    sNick, sPW, sNH: String; //wie kann ich auf diese Variablen aus Unit1 (Hauptanwendung) zugreifen?
  end;

implementation

{$R *.DFM}

procedure TFrame2.Load(Name: String);
begin
  Memo1.Lines.LoadFromFile(Name);
  sNick := Memo1.Lines[0];
end;
end.