[[egostar]]

Puedes usar el evento OnKeyDown de la forma y "preguntar" que tecla fué presionada.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
     VK_F1 : begin
           //Hacer algo F1
          ShowMessage('Se presionó F1'); //Por ejemplo
     end;
     VK_F2 : begin
           //Hacer algo F2
     end;
     VK_F3 : begin
           //Hacer algo F3
     end;
  end;
end;

Salud OS