Es posiblefuncion con varios Result

[[Al González]]

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.