program ChangeLooks2;

var
  Char: TPointArray;
  i, c, x: Integer;

procedure LoadOptions;
begin
  Char := [Point(244, 193)];
  // or: Char[0] := Point(244, 193);
end;

begin
  LoadOptions;
  for i := 0 to 1 do
  begin
    repeat
      MoveMouse(Char[0].X, Char[0].Y);
      ClickMouse(Char[0].X, Char[0].Y, mouse_left);
      Wait(1000);
      Inc(c);
    until(c = x);
  end;
end.