t

const
  c = 0;

procedure Action(x: Integer);
var
  ptToClick: TPoint;
begin
  ClearDebug;
  case x of
    1: begin
         WriteLn('Action 1!');
         ptToClick := Point(8, 30);
       end;
    2: begin
         WriteLn('Action 2!');
         ptToClick := Point(7, 42);
       end;
    3: ptToClick := Point(7, 58);
  else
    TerminateScript;
  end;
  MoveMouse(ptToClick.X, ptToClick.Y);
  ClickMouse(ptToClick.X, ptToClick.Y, mouse_Left);
end;

begin
  repeat
     Action(c);
     Wait(100);
  until IsKeyDown(VK_F12);
end.