create or alter procedure MY_PROC (
    A integer,
    B integer)
returns (
    RESULT integer)
as
begin
  result = a + b;
  suspend; /* Здесь - не обязательно */
end

var
 Result : Integer;
 fQ : TpFIBQuery;
begin
  fQ := TpFIBQuery.Create(nil);
  try
  fQ.Database := pFIBDatabase1;
  fQ.Options := [qoStartTransaction];
  fQ.SQL.Text := 'Execute procedure My_Proc(:a, :b)';
  fQ.ParamByName('a').AsInteger := 2;
  fQ.ParamByName('b').AsInteger := 2;
  fQ.ExecQuery;
  Result :=  fQ.FieldByName('Result').AsInteger; // Результат
  finally
    fQ.Free
  end;
end;

create or alter procedure MY_PROC (
    A integer,
    B integer)
returns (
    RESULT integer)
as
begin

  result = a; -- Первый результат
  suspend;

  result = b; -- Второй результат
  suspend;

end

var
  Result: Integer;
  fRC: Integer;
  fQ: TpFIBQuery;
begin
  pFIBDatabase1.Open;
  fQ := TpFIBQuery.Create(nil);
  try
    fQ.Database := pFIBDatabase1;
    fQ.Options := [qoStartTransaction];
    fQ.SQL.Text := 'select result from My_Proc(:a, :b)'; // Обращаемся с процедурой как с табличкой
    fQ.ParamByName('a').AsInteger := 2;
    fQ.ParamByName('b').AsInteger := 3;

    fQ.ExecQuery;
    fRC := fQ.RecordCount; // Вот и RecordCount 
    while not fQ.Eof do begin // Вот и EOF
      Result := fQ.FieldByName('Result').AsInteger; // Перебор всех результатов
      fQ.Next;
    end;
  finally
    fQ.Free
  end;