Como se usa el evento KeyPress en Lazarus??

[aviatorz]

Mi idea es que cuando el usuario presione una tecla por ejemplo F1, cambie la propiedad TabIndex de un PageControl, Alguien aqui ha utilizado el evento KeyPress?

Algo como

Código Delphi [-]
if tecla='F1' then
begin
     TabControl1.TabIndex:= 1; 
end;