El problema es que
Andy toma la información del procedimiento a asignar de una cadena de caracteres. Tendría que usar RTTI:
Código Delphi
[-]
uses TypInfo;
...
var
Method: TMethod;
begin
Method.Data := Self;
Method.Code := Self.MethodAddress('MiClick');
TypInfo.SetMethodProp(Button2, 'OnClick', Method);
end;
// Saludos