1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const
  myGUID = '{6C1C3282-10AB-44F1-966A-14DBD8061917}';

var
  createdNew : Boolean;
  m : Mutex;

begin
  m := Mutex.Create(true, myGUID, createdNew); //Mutex erzeugen

  if not createdNew then exit; //wenn es ihn schon gab, läuft das Programm schon
  Application.Run(TMainForm.Create);

  m.ReleaseMutex; //Mutex freigeben
end.