непойму как работает

[myownstyle]

Решыл изпробоватъ FindTypesArrayEX но не получается даже запуститъ, так как немогу понятъ в чем проблема то.. at 14:5): Type Mismatch
function FindTypesArrayEx(ObjTypes, Colors : Array of word; Containers : Array of Cardinal; InSub : Boolean) : Cardinal;

Code: Select all

Program New;

Procedure TestFindTypesArrayEX;
var
Types : Array of Word;
Colors : Array of Word;
Locations : Array of Cardinal;
FindDistance:Integer;
begin
    FindDistance:= 2;
    Types := [$0E21, $0EED];//Bandages, Gold, 
    Colors := [$FFFF]; // all colors
    Locations := [$4001EA86,Ground]; // Test bag, ground
    while (FindTypesArrayEX(Types, Colors, Locations, True)>0) do   // На ету строчку выдает ошыбку
    begin
         MoveItem(finditem,0,backpack,0,0,0); 
         Wait(1000);
    end;  
end;

begin
    TestFindTypesArrayEX;
end.

[Vizit0r]

while (FindTypesArrayEX([$FFFF], [$FFFF], Locations, True)>0) do

почему так - хз, буду смотреть.