varias Fn en un mismo formulario

[feliz-58]

Mis saludos para todos en el club.

Tengo la siguiente forma para usar las funciones en un formulario:

Código Delphi [-]
If key = vk_F1 
Then
Button1.click;

Cual seria la forma para agregar varias funciones?

Intente:

Código Delphi [-]
If key = vk_F1 
Then
Button1.Click;

If key = vk_F2
Then 
Button2.click;

Pero no funciono. Se ejecutan los dos cuando le das a F1.

SALUDOS A TODOS.