Где и как прописать функцию а имменно

[subbota]

function Now: TDateTime; - чтобы получить текущию дату

[Terran]

Эта функция уже описана в модуле SysUtils. Вам осталось только ей воспользоваться. К примеру:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:=DateToStr(Now);
End;