Program find;
Var
ppp: tpointarray;

copp, w, h, amountofbitmapsfound: Integer;
SetArrayLength(ppp, 28);

Begin
GetClientDimensions(w, h);

copp := BitmapFromString(7, 12, 'meJwlzxEUxDAMBmAdDqvFYTFaDAa' +
        'jxWCxWgwWq8Pi8HQ4LJ4Oh6eXe/fyveS9P5EEHUHHgskhQ6nS1Dm+' +
        'uk0pWvb3swBSVatXhjP58ern59F5+4jXe44cjxwHrv3o436i9hX5l' +
        '0jcE4zC7bzMSikjZAKJwMEXbWZlEQRjqxR8n7cJUgpBZagEafP7vE' +
        '29ZuWgHCoFoRhrM9zHP2zoPSXjiHNTu7FkS9k4EuukLeMWczVtPiB' +
        'lQbY3v6uUbuM=');

ppp[0].x := MSX1;
ppp[0].y := MSY1;



If (FindBitmapIn(copp, MSX1, MSY1, 0,0, w-1, h-1)) Then
begin;
amountofbitmapsfound := length(ppp);
Writeln('amountofbitmapsfound');
end;
Writeln('Could not findr');
End.