[Bargest]

Код:

procedure SuperProcWithThreeParams(var a, b, c: integer)
begin
 a := 1;
 b := 2;
 c := 3;
end;

Значение возвращается в виде трех чисел.
Если чисел именно три, то этот способ самый простой. Но о расширяемости в этом случае можно забыть.