ERROR ALREADY EXISTS in Delphi 7

Ketika menjalankan sebuah hasil compiler di Delphi yg biasa dikenal (.exe) , kita melupakan hal kecil, bagaimana aplikasi berjalan 2 kali..itu bukan error, tapi hanya tidak diberi batas..bisa saja kita menjalankan aplikasi sampai 3, 4, atau 5 kali..ketika di klik aplikasi .exe itu..

disini saya akan membahas..bagaimana cara membatasinya..

Pertama, kita buka "unit views" yang ada dimenu bar sebelah kiri atas..atau klik "F8"..

selanjutnya kita dapat melihat list source dari project kita..ingat, project..bukan Unit..

dan langkah terakhir..perhatikan source dibawah ini..

.....................................................................................................................................
    Program toko_baju;
    uses
          windows,
          forms,
    unit1 in 'unit1.pas' {Form1};
    {$R*.res}


    begin
          createmutex(nil,false,'APLIKASI TOKO BAJU');
          if Get lats error =Error_Already_Exists then
              begin
          Application.Messagebox ('APLIKASI SUDAH BERJALAN','PERINGATAN',mb_iconwarning);
          halt;  // penghentian aplikasi
          end;
     Application.Initialize;
     Application.CreateForm(TForm1,Form1);
     Application.Run;
     End;

ket : jika ada kesalahan, komentar anda dibutuhkan..
Terimakasih