[AlexSku]

Код:

var i: Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
  TabControl1.Tabs.Add(Format('new %u', [i]));
  Inc(i);
end;