Определение активного/выдленного компонента

[Rusland]

Добрый день.
Есть несколько Edit-ов, Button-ов, ComboBox-ов, при нажатии кнопки F1 в них должны вызываться моя процедура ShowTooltip. Писать для каждого Edit-а отдельный вызов этой процедуры мне кажется неправильным.
Я решил повесить один обработчик нажатия F1 (OnKeyDown) на саму форму.
Теперь надо только определить какой из компонентов в фокусе.

Я попытался сделать так (определяю имя компонента)

procedure TFrm1Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (Key=VK_F1) then begin
   	 Caption:=FindControl(GetFocus()).Name;
   end;
end;

Все работает, но если фокус находится на компоненте TComboBox, то вылетает AccessViolation.

Как это правильно искать активный компонент?

[Rusland]

Прошу прощение, друзья, оказывается вот так надо было делать:

if (Key=VK_F1) then ActiveControl.Name;

[Yurk@]

а если:

procedure TFrm1Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then 
    if ((Sender as TObject) is TEdit) OR ((Sender as TObject) is TButton) OR ((Sender as TObject) is TComboBox) then
      Caption := (Sender as TObject).Name;
end;

(не проверял, но думаю идея ясна)

[Rusland]

Yurk@, так не получится, так как Sender всегда выдает саму Форму.
И

Caption := (Sender as TObject).Name;

не работает.
Тогда уж

Caption := (Sender as TComponent).Name;

Но спасибо за желание помочь