program emposk;

{%File 'emposk.bdsproj'}

uses
  Forms,
  mainform in 'mainform.pas' {main},
  windows;

{$R *.RES}

var
 Mutex : THandle;
begin
 Mutex:=CreateMutex(nil,True,'EmpOskOnScreenKeyboard');
 if (Mutex=0) or (GetLastError = Error_Already_Exists) then begin
 end else
  begin
  Application.Initialize;
  Application.CreateForm(Tmain, main);
  Application.Run;
  if Mutex<>0 then
    CloseHandle(Mutex);
end;
end.