[dec]

Hola,

Otra opción puede user utilizar "records", de modo que podríamos declarar una como este:

Código Delphi [-]
type
  TOperationResult = record
    operationResult : integer;
    operationMessage : string;
  end;

Que podríamos emplear como tipo de resultado para la siguiente función:

Código Delphi [-]
function SumOperation(a, b: integer) : TOperationResult;
begin
  Result.operationResult := (a + b);
  Result.operationMessage := Format(
    'The sum of %d and %d is %d',
    [a, b, Result.operationResult]
  );
end;

Que a su vez podríamos utilizar de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(SumOperation(1, 2).operationMessage);
end;

Para obtener, en este caso, el mensaje "The sum of 1 and 2 is 3".