procedure TRSPosFinder.FirstScan();
var
  matches:TPtrIntArray;
  i:Int32;
  struct:T2DIntArray = [
    [512,512,512,0],
    [512,512,0,512],
    [512,0,512,512],
    [0,512,512,512]
  ];
begin
  size := self.bufferW*self.bufferH;
  for i:=0 to High(struct) do
  begin
    matches := self.scan.SearchRaw(struct[i][0], SizeOf(Int32), 4);
    {$IFDEF __DEBUG__}
      WriteLn('TRSPosFinder.UpdateAddr() found:',#13#10, matches);
    {$ENDIF}
  end;
end;