...Заставить делфи - программу реагировать на кнопку ибо не хочет чет...

[Katus]

ВотЪ... как это реализовать для мыши?

[Katus]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then begin
  Player.AttackPosition.x:=X;
  Player.AttackPosition.y:=Y;
end else begin
  Player.Go_To.x:=X;
  Player.Go_To.y:=Y;
end;
end;