functions

[[Ohcan]]

Lo que puedes hacer es definirte:

Código Delphi [-]
//[...]
TMiRecord = record
  money,
  percent:Integer;
end;
//[...]

Y luego usarlo como resultado de tu función:

Código Delphi [-]
function asientos(parametros):TMiRecord;
begin
//[...]
  Result.money := dinero;
  Result.percent := porcenta;
end;