Как добавить в скрипт функцию SendToBack?

Question: Как добавить в скрипт функцию SendToBack?

Answer:

constructor TFunctions.Create(AScript: TfsScript); 
begin inherited Create(AScript); 
with AScript do 
begin 
with TfsClassVariable(Find('TfrxView')) do 
AddMethod('procedure SendToBack',CallMethod); 
end; 
end; 
initialization fsRTTIModules.Add(TFunctions);