Además de los parámetros por variable o por referencia, también puedes hacer que el resultado de la función sea de tipo registro:
Código Delphi
[-]
Type
TResultado = Record
Cadena :String;
Entero :Integer;
End;
Function Func1 (Const Fecha :TDateTime) :TResultado;
Begin
Result.Cadena := DateToStr (Fecha);
Result.Entero := Trunc (Fecha);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
R :TResultado;
begin
R := Func1 (Now);
ShowMessage (R.Cadena);
If Func1 (Now).Entero = Date Then
ShowMessage ('Saludos');
end;
Un saludo.
Al González.