TForm1 = class(TForm)
private
{ Private declarations }
procedure WMHelp(var Msg: TWMHelp);
message WM_HELP;
public
end;
procedure TForm1.WMHelp(var Msg: TWMHelp);
var
Control: TWinControl;
begin
with Msg.HelpInfo^do
begin
Control := FindControl(hItemHandle);
Caption := Control.Name;
end;
end;