Вообще, лично для тема перемещения курсора мыши программно нова, я вот не стесняюсь в этом признаться, сейчас активно ищу рабочее решение, ибо то-что я нашел и опробовал никакого видимого результата не дало.
Вот этот код по логике должен передвигать мышу к нужному квадратику, а вот у меня что-то не передвигает
Код:
for i := 0 to ComponentCount - 1
do if Components[i].ClassType = TMemo
then if TMemo(Components[i]).Color = clRed
then Mouse_Event(MOUSEEVENTF_MOVE,TMemo(Components[i]).Left,TMemo(Components[i]).Top,0,0);