Example:
The code below comes from the Delphi Tip "To stop your program from being run more than once"

begin
    MessageDlg('Program is already Running!',mtWarning,[mbOK],0);   {if its found, show a message}
    Halt;    {and halt the running of another instance of the program}
end;