var
  I: Integer;
  M: TMessage;
...

with M do
begin

  Message := ...
  ...
end;

for I := 0 to Pred(Screen.FormCount) do
begin
  PostMessage(Forms[I].Handle, ...);
  // Если надо и всем чилдам
  Forms[I].Broadcast(M);
end;