Hola.
Otra opción que les servirá también a los que disponen de versiones mas viejitas:
Código Delphi
[-]
uses TypInfo;
procedure GetMethodNames(AComponent: TComponentClass; TS: TStrings);
var
i : Integer;
pInf: PPropList;
begin
for i := 0 to GetPropList(AComponent.ClassInfo, pInf)-1 do
if pInf[i].PropType^.Kind = tkMethod then
TS.Add(Format('%s: %s',[pInf[i].Name, pInf[i].PropType^.Name]));
end;
...
begin
GetMethodNames(TListBox, ListBox1.Items);
...
Saludos