Функции даты и времени Опции

[klem4]

Пытаюсь выцепить например текущий час, почему-то постоянно выдает 0

uses DateUtils {, SysUtils };
begin
  writeln(HourOf(Today)); { HourOf(Date) }
end.

[volvo]

Время печатается в формате, задаваемом ShortTimeFormat... Следовательно, меняй ShortTimeFormat на тот, который нужен... То есть, тебе надо занести в ShortTimeFormat ту маску, которая обычно соответствует длинному формату:

  shorttimeformat := 'hh:mm:ss';
  writeln(timetostr(now));

или еще проще:

  shorttimeformat := longtimeformat; // 'hh:mm:ss';
  writeln(timetostr(now));