(Follow-up)

["Adaddict" <adaddict@hotmail.com>]

Thank you for the replies. I'm using Windows XP SP2, GNAT 3.15p and Ada
GIDE. The aplication has to work on Win XP.

The function that causes this error is called from the main task, but the
big variable is local from that function. I'll write a simple version of
the function:

procedure Search_str (FileAccess : in Handle; Query : in string; 
                      Results : out Integer) is
  mbi     : Memory_Basic_Information;
  lpPos   : uinteger;
  lPos    : integer;
  CalcPos : uinteger;
  max     : uinteger;
  length  : constant integer := Query'last;
  
begin
  Results := 0;  
  lpPos := Min_Pos; max := Max_Pos;
  
  while lpPos < max loop
    mbi.RegionSize := 0;
    mbi := Query_Pos (FileAccess, lpPos); 
    if ((mbi.C_Type = PRIVATE_DATA) and (mbi.State = COMMIT_DATA)) then
      if mbi.RegionSize > 0 then
        declare
          sBuffer : string (1..integer(mbi.RegionSize));
        begin
          sBuffer := Read(FileAccess, mbi.BasePos, mbi.RegionSize);
          lPos := instr (Query, length, sBuffer); 
          if lpos > 0 then
            CalcAddress := address_to_uinteger(mbi.BaseAddress) +
uinteger(lPos);
            Put_Line ("Search string was found at position" &
uInteger'image(CalcPos) & "."); Results := Results+1;
          end if;
        end;
      end if;
    end if;
    lpPos := mbi.BasePos + mbi.RegionSize;
  end loop;
end Search_str;

Thankyou everyone again.

Kind regards.