Так?чет не понимаю
procedure DrawKursor;{Прорисовка курсора}
var li : integer;
begin
RedrawMap(a,b);
DrawImage(kursor.img,kursor.x,kursor.y);
if kursor.x+getImageWidth and kursor.y+getImageHeight <= posX and posY then
begin
DrawImage(kursor1.img,kursor.x,kursor.y);
delay(50);
repaint;
end;
delay(50);
repaint;
end;