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;