Как сделать Multi Screen Emulator?

Code:

{

In order to prevent multiple instances of the application I inserted

some lines of code inside the project source;

this is the modified source:

}

program Project1;

uses

Forms,

Windows,

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var

atom: integer;

begin

if GlobalFindAtom('Monitors_Procedure_Atom') = 0 then

   atom := GlobalAddAtom('Monitors_Procedure_Atom')

else

   Exit;

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

GlobalDeleteAtom(atom);

end.