Если это весь код процедуры, то не вариант сделать переменую счетчик, увеличивать ее на 1, до тех пор пока она не станет равно 10
типо того:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i<10 then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
end;