Q125292 - Gestão Concurso Analista de Sistemas 2018

Analise o código abaixo.
      procedure TDate.SetValue (m, d, y: Integer);
     begin
                Month := m;
               Day := d;
               Year := y;
      end;



 A qual linguagem de programação ele pertence?