А вот смотрите:
if (x=unit1x) and (y=unit1y) and (key = KE_KEY5) then //если курсор на юните и кликнута "5"...
begin
condOnBar:='Выбран'; //меняем состояние на баре
if (key = KE_KEY5) then //если была снова кликнута "5"...
begin
unit1x:=x; //перемещение юнита
unit1y:=y; //на положение курсора
end;
end;
Ну, если кликаем по юниту, его состояние меняется на "выбран", если кликаем еще раз, он перемещается на место, где курсор (как в Ancient Empires).
Состояние меняется, а юнит не перемещается. В чем дело?