как отобразить окно копии.

[IliaIT]

Пишу программу, должна быть запущенна только одна копия её на компе. в программе 1 форма.
вот не понял где ошибка для отображения уже запущенной копии.
хочу сделать что бы при попытке запуска второй копии отображалась уже запущенная программа.

program asu_arb;

uses
  Forms,
  Windows,
  SysUtils,
  tlhelp32,
  MainForm in 'MainForm.pas' {Form1};

{$R *.res}
var
  hSnap,hand:THandle;
  pe:TProcessEntry32;
  pid: DWORD;
  Ini_I_O:TextFile;
  prov:byte;
begin
  prov:=0;
  pe.dwSize:=SizeOf(pe);
  hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  If Process32First(hSnap,pe) then
    While Process32Next(hSnap,pe) do
      if ExtractFileName(pe.szExeFile)='asu_arb.exe' then //нашли имя программы, но можно и по названию окна искать.
      begin
        prov:=prov+1;//наш запуск создаёт вторую копию и это учитываем.
        hand:=OpenProcess(PROCESS_QUERY_INFORMATION,false,pe.th32ProcessID);
        ShowWindow(hand,SW_SHOWNORMAL); //пытаюсь отобразить и свою и первую программу
        if prov>1 then //нашли более 1 программы себя и уже запущенную.
        begin //сохраняем лог запусков
          AssignFile(Ini_I_O,'log.txt');
          if FileExists('log.txt') then
          begin
            Append(Ini_I_O);
            Writeln(Ini_I_O, DateTimeToStr(Now) +' ' + 'попытка запустить вторую копию проги '+IntToStr(pe.th32ProcessID));
          end
          else
          begin
            rewrite(Ini_I_O);
            Writeln(Ini_I_O, DateTimeToStr(Now) +' ' + 'попытка запустить вторую копию проги '+IntToStr(pe.th32ProcessID));
          end;
          CloseFile(Ini_I_O);
          Exit;
        end;
      end;

  Application.Initialize;
  Application.Title := 'Арбаны, второй подъем';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.