Передача кода с формы на другие формы

[Serg-Grin]

Как сделать чтобы в одной форме прописать код, и этот код действовал на все остальные формы?
Например я сделал полноэкранный режим на Form1

function SetFullscreenMode:Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;
dmPelsWidth:=640;
dmPelsHeight:=480;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
result:=False;
if ChangeDisplaySettings(DeviceMode,CD S_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
then Exit;
Result:=ChangeDisplaySettings(Devic eMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetFullscreenMode;
end;

Потом создаю вторую форму, а она уже не на полный экран. Как нужно сделать правильно?

[Stilet]

А что обычного wsMaximized и fsStayonTop не хватает?

[Serg-Grin]

Так тоже не плохо! И еще один вопрос:
Как можно сделать сообщение, чтобы оно через главную форму подавало на все остальные?