[moo2k]

Зайди в Project->>View Source и пропиши там:

Код:

в uses
  Forms,
  Windows,
  SysUtils;
...

const
 MemFileSize = 1024;
 MemFileName = 'Имя твоей проги полностью';

var
 MemHnd : HWND;

{$R *.RES}

begin
MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MemFileSize, MemFileName);
if GetLastError <> ERROR_ALREADY_EXISTS
then begin
Application.Initialize
end
else begin
Application.MessageBox('Данная программа уже выполняется.', 'Ошибка');
halt;
end;