Bonjour ! Je vois (au moins) deux solutions : une fonction renvoyant un enregistrement :


type
TMyRecord = record
a, b, c: integer;
end;

function MyRecord: TMyRecord;
begin