Aplicativo já em execução

Coloque issu no codigo do Projeto...

var Mutex : THandle;{$R *.res} begin Mutex:= CreateMutex(nil, true, 'MinhaAplicacao'); if Mutex <> 0 then begin if GetLastError = Error_Already_Exists then begin Application.MessageBox('O sistema já está em execução!','MeuSistema', mb_Ok + mb_IconInformation); exit; end; end; Application.Initialize; Application.Title := 'Rodrigo'; Application.CreateForm(TForm1, Form1); Application.Run;end.