[NumLock]

Код:

ShellExecute(Handle, nil, PWideChar('http://www.live-T.ru/SCD_print.aspx?date_req='+formatdatetime('dd/mm/yyyy', (DTP1.Date)))+'', nil, nil, SW_SHOW);