Hola, otra opción sería utilizar Out, que define un parametro de salida y supuestamente no necesita inicialización.
Código Delphi
[-]
function NombreFuncion(Out a , b : Integer) : Integer
begin
....................
a := valor;
b ;= otrovalor;
end;
Saluditos