[[maeyanes]]

La primera opción es un procedimiento, y la llamada sería más o menos así:

Código Delphi [-]
var
  HorasTotales: string;
  MinutosTotales: string;

begin
  Procedure HorasMinutosEnTurno(10, 50, 12, 30, HorasTotales, MinutosTotales);
  ShowMessage(Format('El turno duró: %s horas y %s minutos', [HorasTotales,
    MinutosTotales]);
end;