program Jajko;
uses
forms, windows, sysutils, controls,
inneformy;
{$R.RES}
var
mutex : THandle;
begin
mutex := createmutex(nil, true, 'JAJKO');
if (mutex <>0) and (getlasterror =0) then
begin
application.initialize;
INNEFORMY
Application.Run;
if mutex <> 0 then closehandle(mutex)
end
else
begin
TU BYM CHCIAL UCZYNIC AKTYWNA FORME GLOWNA PROGRAMU
(jesli jest zminimalizowana to ja przywrocic)
end;