Как сделать заголовок (программы )дата-Random

[АлександрDelphi]

У меня есть программа мне нужно сделать как на скрине то есть(первое это дата а дальше идет RandomPassword
Screenshot_1.png
У меня есть код на Random заголовок окна

function RandomPassword(PLen: Integer): string;
 var
   str: string;
begin
     Randomize;
   //string with all possible chars
  str    := ':;@#$%^&*()_+=][bcdefghijklmnopqrstuvwxyz';
   Result := '2';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;
function RandomWord(dictSize, lngStepSize, wordLen, minWordLen: Integer): string;
begin
  Result := '';
   if (wordLen < minWordLen) and (minWordLen > 0) then
     wordLen := minWordLen
   else if (wordLen < 1) and (minWordLen < 1) then wordLen := 1;
   repeat
     Result := Result + Chr(Random(dictSize) + lngStepSize);
   until (Length(Result) = wordLen);


end;

А как сделать что бы выводило дату которую я укажу и через| Random значение ..
буду очень благодарен за помощь)

[Dvoishnik]

Form.Caption:= dateToStr(date)+'  '+RandomPassword(1);

в чем сложность??

[АлександрDelphi]

Сообщение от Dvoishnik

Form.Caption:= dateToStr(date)+'  '+RandomPassword(1);

в чем сложность??

Cпасибо, но только маленько не то я хочу дату сам водить а не что бы она бралась из пк..

[Serge_Bliznykov]

Сообщение от АлександрDelphi

Cпасибо, но только маленько не то я хочу дату сам водить а не что бы она бралась из пк..

так вводите, в чём принципиальная сложность?
или мы в угадайку играем?!

тогда так - вот Вам с вашей датой:

  MyDate := '15.04.2016';
  Form.Caption:= MyDate+'  '+RandomPassword(1);

Теперь так, как Вы хотели?

[Аватар]

тогда так - вот Вам с вашей датой:

Вангую за ТС - а мне не нужна дата-константа, а нужно ввести её

[АлександрDelphi]

Сообщение от Serge_Bliznykov

так вводите, в чём принципиальная сложность?
или мы в угадайку играем?!

тогда так - вот Вам с вашей датой:

  MyDate := '15.04.2016';
  Form.Caption:= MyDate+'  '+RandomPassword(1);

Теперь так, как Вы хотели?

Да спасибо, но пришлось добавить еще
Var
MyDate :string;
Благодарю за помощь )))

[Serge_Bliznykov]

Ага. Пожалуйста. Тогда можете попробовать обойтись без переменой:

Form.Caption:= '17.04.2016  '+RandomPassword(1);