Tabsheet og TMemo

Jeg har lavet en editor med tabs. Dog når man skal lave en ny side skal den lave en tabsheet med en TMemo inden i men den laver kun tabsheet'en uden memo.
koden:

procedure TForm1.New1Click(Sender: TObject);
var
ATabsheet: TTabsheet;
Memo1: TMemo;
begin
i := i+1;
ATabsheet := TTabSheet.Create(PageControl1);
with ATabsheet do
begin
PageControl := PageControl1;
Caption := 'Untitled'+IntToStr(i+1);
end;

PageControl1.ActivePage := ATabsheet;

Memo1 := TMemo.Create(ATabsheet);
with Memo1 do
begin
Visible := true;
Font.Name := 'Courier New';
Font.Size := 10;
Height := 521;
Width := 849;
WantTabs := true;
end;
end;

Nogen der ved hvorfor der ikke er nogen memo ?
På forhånd, tak!

[Redigeret d. 10/12-04 21:39:47 af SystemF]