[Evgen_Balbes]

Здравствуйте. Подскажите пожалуйста как реализовать вот такую заморочку: При создание новой вкладки ,в компоненте PageСontrol,нужно чтобы в ярлыке формировалась текущая дата( год\месяц\дата) или случайное 5-ти значное число? (Предпочтительнее дата.)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
begin
pag:=TTabSheet.Create(pagecontrol1);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
end;

Как понимаю нужно изменить строчку 6, но как это сделать я не знаю!!??Спасибо.