CREATE TABLE IDS (
    ID  INTEGER NOT NULL PRIMARY KEY
);

CREATE PROCEDURE INSERT_IDS( ID INTEGER )
AS
BEGIN
  IF ( NOT EXISTS( SELECT * FROM IDS WHERE ID = :ID ) ) THEN
    INSERT INTO IDS( ID ) VALUES( :ID );
END

  pFIBQuery1.Text := 'execute procedure INSERT_IDS( :ID )';
  pFIBQuery1.Transaction.StartTransaction;
  for i := 1 to 500000 do
  begin
    pFIBQuery1.Params[0].AsInteger := Random( 50000 );
    pFIBQuery1.ExecQuery;
  end;
  pFIBQuery1.Transaction.Commit;

DECLARE EXTERNAL FUNCTION SCAN_IDS
    CSTRING(32765),
    INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'ScanIds' MODULE_NAME 'Ids.dll';

CREATE PROCEDURE INSERT_IDS ( STR VARCHAR(32765) )
AS
  DECLARE VARIABLE POS INTEGER;  -- позиция сканирования строки
  DECLARE VARIABLE CNT INTEGER;  -- количество символов значение от позиции
  DECLARE VARIABLE VAL INTEGER;  -- целочисленное значение в позиции сканирования
BEGIN
  POS = 1;
  WHILE ( 1 = 1 ) DO
  BEGIN
    CNT = SCAN_IDS( :STR, :POS );
    IF ( CNT = 0 ) THEN   BREAK;

    VAL = CAST( SUBSTRING( :STR FROM :POS FOR :CNT ) AS INTEGER );
    IF ( NOT EXISTS( SELECT * FROM IDS WHERE ID = :VAL ) ) THEN
      INSERT INTO IDS( ID ) VALUES( :VAL );
    POS = :POS + :CNT + 1;
  END
END

  pFIBQuery1.Text := 'execute procedure INSERT_IDS( :ID )';
  pFIBQuery1.Transaction.StartTransaction;
  s := '';
  for i := 1 to 500000 do
  begin
    s := s + IntToStr( Random( 50000 ) ) + '~';
    if Length( s ) > 32750 then
    begin
      pFIBQuery1.Params[0].AsString := s;
      pFIBQuery1.ExecQuery;
      s := '';
    end;
  end;
  if s <> '' then
  begin
    pFIBQuery1.Params[0].AsString := s;
    pFIBQuery1.ExecQuery;
  end;
  pFIBQuery1.Transaction.Commit;

library Ids;

{
DECLARE EXTERNAL FUNCTION SCAN_IDS
    CSTRING(32765),
    INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'ScanIds' MODULE_NAME 'Ids.dll';
}
function ScanIds( Value : pAnsiChar; var Index : integer ) : integer; cdecl; export; assembler;
asm
    Add   ESP, -$08

    Mov   EDX, EDI
    Mov   EDI, [EBP + $08]    // EDI = Value

    Mov   ECX, [EBP + $0C]
    Mov   ECX, [ECX]          // ECX = Index
    Dec   ECX                 // Index не с 1, а с 0
    Add   EDI, ECX

    Xor   EAX, EAX
    Cmp   Byte Ptr [EDI], AL  // Проверка на конец CSRING
    Jz    @@1

    Mov   ECX, 00007FFDh      // масимально возможная длина VARCHAR
    Mov   EBX, ECX            // Запоминаем позицию начала поиска тильды
    Dec   EBX
    Mov   AL,  '~'
    Repne Scasb
    Mov   EAX, EBX
    Sub   EAX, ECX

@@1:
    Mov   EDI, EDX
    Pop   ECX
    Pop   ECX
end;

exports
  ScanIds;

end.

CREATE PROCEDURE INSERT_IDS ( STR VARCHAR(32765) CHARACTER SET NONE )

function DummyInt( Value : pAnsiChar; var Index : integer ) : integer; cdecl; export;
begin
  Result := 0;
end;

exports
  DummyInt;

DECLARE EXTERNAL FUNCTION DUMMY_INT
    CSTRING(32765),
    INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'DummyInt' MODULE_NAME 'Ids.dll';

CREATE PROCEDURE INSERT_IDS ( STR VARCHAR(32765) )
AS
  DECLARE VARIABLE CNT INTEGER;
BEGIN
  WHILE ( 1 = 1 ) DO
  BEGIN
    CNT = DUMMY_INT( :STR, :POS );
    IF ( CNT = 0 ) THEN   BREAK;
  END
END

  pFIBQuery1.SQL.Text := 'execute procedure INSERT_IDS( :ID )';
  s := '';
  pFIBQuery1.Transaction.StartTransaction;
  for i := 1 to 500000 do
  begin
    s := s + IntToStr( Random( 50000 ) ) + '~';
    if Length( s ) > 32750 then
    begin
      pFIBQuery1.Params[0].AsString := s;
      pFIBQuery1.ExecQuery;
      s := '';
    end;
  end;
  if s <> '' then
  begin
    pFIBQuery1.Params[0].AsString := s;
    pFIBQuery1.ExecQuery;
  end;
  pFIBQuery1.Transaction.Commit;

CREATE PROCEDURE INSERT_IDS ( STR VARCHAR(32765) )
AS
  DECLARE VARIABLE CNT INTEGER;
BEGIN
  WHILE ( 1 = 1 ) DO
  BEGIN
    CNT = 0;    -- DUMMY_INT( :STR, :POS );
    IF ( CNT = 0 ) THEN   BREAK;
  END
END

var
  t : TTime;
begin
  t := Time;

  pFIBQuery1.SQL.Text := 'execute procedure INSERT_IDS( :ID )';
  s := '';
  pFIBQuery1.Transaction.StartTransaction;
  for i := 1 to 500000 do
  begin
    s := s + IntToStr( Random( 50000 ) ) + '~';
    if Length( s ) > 9000 then
    begin
      pFIBQuery1.Params[0].AsString := s;
      pFIBQuery1.ExecQuery;
      s := '';
    end;
  end;
  if s <> '' then
  begin
    pFIBQuery1.Params[0].AsString := s;
    pFIBQuery1.ExecQuery;
  end;
  pFIBQuery1.Transaction.Commit;
  t := Time - t;

  for i := 1 to 500000 do

    s := s + IntToStr( Random( 50000 ) ) + '~';

    if Length( s ) > 32750 then

      pFIBQuery1.Params[0].AsString := s;
      pFIBQuery1.ExecQuery;
      s := '';

s := s + IntToStr( Random( 50000 ) ) + '~';