У меня есть код

Код:
var Tab:TTabbedNotebook;
   Memo: TMemo;
begin
TabbedNotebook2.Pages.Add('Безымянный');
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TTabPage(TabbedNotebook2.Pages.Objects[TabbedNotebook2.Pages.Count - 1]);
  Memo.Left := 0;
  Memo.Top := 0;
  Memo.Width:=649;
  Memo.Height:=393;
ToolButton12.Enabled := True;
SohrClic.Enabled := True;
ToolButton13.Enabled := True
end;
end.

Мне нужен 1 маленький код который будет называть Вкладки так
Безымянный потом Безымянный 1,2,3,4,5 и т.д.

Решение:

Код:
TabbedNotebook2.Pages.Add('Безымянный' + IntToStr(TabbedNotebook2.Pages.Count)); 
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TTabPage(TabbedNotebook2.Pages.Objects[TabbedNotebook2.Pages.Count - 1]);
  Memo.Left := 0;
  Memo.Top := 0;
  Memo.Width:=649;
  Memo.Height:=393;