PageControl --> JvTabBar

[Nils_13]

Hi,

im folgenden Code seht ihr meine Methode einen TabSheet einer PageControl zu erstellen. Aber das Problem ist, dass ich den Code für die JvTabBar zum laufen bringen muss. Nur wie mach ich das ? Das Problem: wie kommt das Memo in die JvTabBar hinein ?
JvTabBar.Tabs.TabBar.AddTab(Edit.Text); ist das erstellen, aber dann fehlt mir noch das Memo und die zeilen im Memo.

Delphi-Quellcode:

type
   TExtendedTabSheet = class(ComCtrls.TTabsheet)
   constructor Create(AOwner: TComponent);
   private
     fMemo : TMemo;
  public

  published
    property Memo : TMemo read fMemo write fMemo;
  end;

procedure TfrmMain.Blacklanguage1Click(Sender: TObject);
begin
  with Sheet do
  begin
    Sheet := TExtendedTabSheet.Create(Pages);
    PageControl := Pages;
    Caption     := Edit1.Text;
    fMemo.Font.Color := clWhite;
    fMemo.Lines.Add('class Unbenannt ');
    fMemo.Lines.Add('var x, y, z: integer');
    fMemo.Lines.Add('');
    fMemo.Lines.Add('item proc; ');
    fMemo.Lines.Add('{');
    fMemo.Lines.Add('  z := b');
    fMemo.Lines.Add('}');
    fMemo.Lines.Add('');
    fMemo.Lines.Add('{');
    fMemo.Lines.Add('  x := a;');
    fMemo.Lines.Add('  y := a;');
    fMemo.Lines.Add('  Writeln (x); readln (y)');
    fMemo.Lines.Add('}');
    Show;
  end;
end;

procedure TfrmMain.Sheet_Create;
var TabSheet : TTabSheet;
begin
TabSheet := TTabSheet.Create(Self);
  with TabSheet do
  begin
    Align  := alCLient;
    Parent := TabSheet;
  end;
TabSheet.PageControl := Pages;
end;

constructor TExtendedTabSheet.Create(AOwner: TComponent);
begin
  inherited;
  fMemo := TMemo.Create(self);
  with fMemo do
  begin
    Parent := TWinControl(self);
    Align := alClient;
  end;
  with fMemo do
    fMemo.Align := alClient;
    fMemo.Color := clBlack;
    fMemo.Show;
end;

Falls es sehr einfach ist: Ich habe grade höllische Kopfschmerzen und will mir jetzt nicht großartig den Kopf zerschmettern, aber mir würde das ganze so oder so Schwer fallen, die kopfschmerztablette muss erst noch wirken