Запрет запуска более 1 копии программы

можно так

const
  APP_NAME = 'My App Name';

procedure Form1_OnShow (Sender: string; Action: string);
begin
  if FindWindow(nil, APP_NAME) <> 0 then
  begin
      ShowMessage('Application is already launched.');
      Form1.Close;
  end;
  Form1.Caption := APP_NAME;
end;

скрипт при запуске приложения проверяет, есть ли уже окно с заголовком 'My App Name'
если есть, то закрывается.

'My App Name' - замените на свое уникальное название.

также в проекте, текст заголовка главной формы (свойство Caption) оставьте по умолчанию Form1