Paso de parametros

[Delphos]

Hola foro

Resulta que no se como devolver dos parametros de una funcion

Por ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
  var: Hora1, Min1, Hora2, Min2 : Integer;
        TotHora,TotMin: String
begin
   Instrucciones
    .
    .
   // Se que una llamada normal seria asi
    HorasMinutosEnTurno( Hora1, Min1, Hora2, Min2);
   
  //Pero yo quiero que la funcion me devuelva dos valores
   ¿Como recogo aqui el valor de TotalHoras y el TotalMinutos de la funcion?
end;

Function HorasMinutosEnTurno(HoraInicio,MinutosInicio,HoraFinal,MinutosFinal:Integer):String;
var : TotalHoras, TotalMinutos : String
begin
   Instrucciones
    ...
    ...
   TotalHoras:= a lo que sea
   TotalMinutos := a lo que sea
end ;

Muchas gracias de antemano.

Salu2.