Узнать текущее время, часы, минуты, секунды по отдельности - PascalABC.NET

Формулировка задачи:

Какая функция в Паскале (Именно Pascal ABC.NET) позволяет узнать текущее время, желательно ЧАСЫ, МИНУТЫ, СЕКУНДЫ по отдельности. На Турбо это есть, на ABC (без .NET) читал, тоже вроде как имеется. Но вот как в .NET это реализовать? Надо что-то типа .... Бла-бал-бла.... H := ТекущееВремя.Часы; M := ТекущееВремя.Минуты; S := ТекущееВремя.Секунды; Ну и с датой можно также поступить? Что-то покопался в справке, в Сети, может к вечеру глаз замылил, но не могу найти...

Решение задачи: «Узнать текущее время, часы, минуты, секунды по отдельности»

textual
                            Листинг программы 
                        
 
                            
                        
procedure Segment(X, Y: Integer; Kf: Real; N: Char);
var
  p: array of Point;
var
  arrX: array[1.. 7, 1.. 7] of integer := 
  (
      (11, 21, 59, 69, 59, 21, 11),
      (70, 60, 60, 70, 80, 80, 70),
      (70, 60, 60, 70, 80, 80, 70),
      (10, 0, 0, 10, 20, 20, 10),
      (10, 0, 0, 10, 20, 20, 10),
      (11, 21, 59, 69, 59, 21, 11),
      (11, 21, 59, 69, 59, 21, 11)
  );
var
  arrY: array[1.. 7, 1.. 7] of integer := 
  (
      (10, 20, 20, 10,  0,  0, 10),
      (11, 21, 59, 69, 59, 21, 11),
      (71, 81, 119, 129, 119, 81, 71),
      (11, 21, 59, 69, 59, 21, 11),
      (71, 81, 119, 129, 119, 81, 71),
      (70, 80, 80, 70, 60, 60, 70),
      (130, 140, 140, 130, 120, 120, 130)
  );
  ix: integer;
 
begin
  Pen.Color   := FS;
  Brush.Color := FS;
  ix := Pos(N, 'ABCFEGD');
  SetLength(P, 7);
  for var i := 0 to 6 do
  begin
    p[i].X := Round(X + arrX[ix, i + 1] * Kf);
    p[i].Y := Round(Y + arrY[ix, i + 1] * Kf);
  end;
  
  FillPolygon(p);
end;// Конец процедуры рисования сигментов цифр