var
  I: Integer;
  M: TMessage;
  ...
  with M do begin
    Message := ...
  ...
end;
  PostMessage( Forms[I].Handle, ... );
  // Если надо и всем чилдам
  Forms[I].Broadcast( M );
end