function TTS4App.CreateVArticle(ArtID: Integer; VArtType: Integer; const SerialNo: WideString;
                            const SetNo: WideString; StartDate: OleVariant;
                            EndDate: OleVariant; EndDateON: Integer; const VArtNote: WideString): Integer;

function TCemptyName.NoNewVersions(SearchIntf, SbServerIntf: OleVariant): integer;
var k: integer;
var Input: array of Variant;
begin
  s4Com := s4CreateVArticle.CreateVArticle(1,1,'1','1',1,1,1,'1');
   Input := (read(ArtID, VArtType, SerialNo,
 SetNo, StartDate, EndDate, EndDateON, VArtNote));

end;