[yusnerqui]

Hola
Esta otra también puede servirte:

Código Delphi [-]
Type
  TMyResult=Record
    V1:integer;
    V2:Real;
  End;

///después

Function MultiValor:TMyResult;
Begin
  Result.V1:=1;
  Result.V2:=5,67;
End;

Espero te sirva.

Saludos