Hola,
A bote pronto, otra posible solución podría ser algo similar a esta:
Código Delphi
[-]
type
TCarregaValoresResult = record
tipo: string;
result: boolean;
equipamiento: string;
end;
function CarregaValores(ano, num: Integer): TCarregaValoresResult;
var
tipo, equipamento: String;
begin
Result.tipo := 'Valor';
Result.equipamiento := 'Valor';
Result.result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
carregaValoresResult: TCarregaValoresResult;
begin
carregaValoresResult := CarregaValores(2009, 2589);
if carregaValoresResult.result then begin
ShowMessage(carregaValoresResult.tipo);
ShowMessage(carregaValoresResult.equipamiento); end;
end;