Есть ли такая программа чтобы клавиша сама нажималась 1 раз в каждую секунду в моем случаи это Ctrl

Не знаю, есть или нет, вот, наваял специально для тебя:

program ctrltick;

{$APPTYPE CONSOLE}

uses
SysUtils,
Windows,
Classes;

type

TTickThread=class(TThread)
protected
procedure Execute; override;
end;

{ TTickThread }

procedure TTickThread.Execute;
var ScanCode:byte;
begin
ScanCode:=Lo(MapVirtualKey(VK_CONTROL,0));
repeat
keybd_event(VK_CONTROL, ScanCode, 0, 0);
write('^'#13);
sleep(1000);
keybd_event(VK_CONTROL, ScanCode, KEYEVENTF_KEYUP, 0);
write(' '#13);
sleep(1000);
until Terminated;
end;

begin
try
with TTickThread.Create(false) do begin
Writeln('Press Enter to stop sending controls');
readln;
Terminate;
Sleep(2100);
end;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

Попроси кого-нить, чтобы скомпилировал, у меня на этой машине виндозного компилятора нет.

Кликер

проще сделать самостоятельно в конструкторе