[angvelem]

Это нужно?

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    if PlayerTeam <> Team then SetCursorPos(Round(vec.x),Round(vec.y));
      ...
end;