[roamer]

ActiveMDIChild - свойство у TForm
TMDIChild - это Ваша MDI-форма -> TMDIChild = class(TForm)

Код:

if ActiveMDIChild<>NIL then begin
  if (ActiveMDIChild is TMDIChild) then begin
   (ActiveMDIChild as TMDIChild).Set_SyntaxType(tf,true);
   //и т.д.
  end;
end;