--- ibx/trunk/fbintf/client/FBParamBlock.pas	2020/07/17 22:57:55	307
+++ ibx/trunk/fbintf/client/FBParamBlock.pas	2020/07/18 10:26:30	308
@@ -104,6 +104,7 @@ type
      function getAsString: AnsiString;
      function getAsByte: byte;
      procedure addByte(aValue: byte);
+     procedure addShortInt(aValue: ShortInt);
      procedure addShortInteger(aValue: integer);
      procedure setAsByte(aValue: byte);
      procedure setAsByte2(aValue: byte);
@@ -393,6 +394,19 @@ begin
   end;
 end;
 
+procedure TParamBlockItem.addShortInt(aValue: ShortInt);
+var len: integer;
+    P: PByte;
+begin
+  with FParamData^ do
+  begin
+    P := FBufPtr + FBufLength;
+    len := FBufLength + 1;
+    FOwner.UpdateRequestItemSize(self,len);
+    PShortInt(P)^ := aValue;
+  end;
+end;
+
 procedure TParamBlockItem.addShortInteger(aValue: integer);
 var len: integer;
     P: PByte;