значит так, моя программа отлавоивает нажатие клавиши F1 и производит действие

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Odd(GetAsyncKeyState(113)) then begin
showmessage('F1 Нажата');
end;

Но тут такая феня, если до старта моей программы эта клавиша была нажата то после старта моей программы, вылетает столько окон сколько раз эта клавиша была нажата, тоесть меня интересует как обнулить то место куда сохраняются нажатые кнопки.

Читаем:
The GetAsyncKeyState function determines whether a key is up or down at the time the function is called, and whether the key was pressed after a previous call to GetAsyncKeyState.
Функция определяет была ли нажата клавиша в интервале между последним вызовом сей функции.
Решение:
The GetKeyState function retrieves the status of the specified virtual key. The status specifies whether the key is up, down, or toggled (on, off ¾ alternating each time the key is pressed).
Использовать функцию GetKeyState, но есть решение еще лучше:
The SetWindowsHookEx function installs an application-defined hook procedure into a hook chain. An application installs a hook procedure to monitor the system for certain types of events. A hook procedure can monitor events associated either with a specific thread or with all threads in the system. This function supersedes the SetWindowsHook function.
WH_KEYBOARD Installs a hook procedure that monitors keystroke messages. For more information, see the KeyboardProc hook procedure.

Так и знал, придётся hook писать