Code:

var

ProjectWindow: TWndProject;

begin

If ProjectActive=false then

begin

   LockWindowUpdate(ClientHandle);

   ProjectWindow:=TWndProject.Create(self);

   ProjectWindow.Left:=10;

   ProjectWindow.Top:=10;

   ProjectWindow.Width:=373;

   ProjecTwindow.Height:=222;

   ProjectWindow.Show;

   LockWindowUpdate(0);

end;

end;