Exlusividade para programa

Pesquisei e só encontrei este codigo para dar exclusividade
para meu programa via delphi.

procedure Tform1.ChangeShell(String programa);
var ArquivoIni : Tinifile;
begin
try
ArquivoIni := Tinifile.Create(´System.ini´);
ArquivIni.WriteSection(´Config´,´Shell´,´Myprog.exe´);
fynally
ArquivoIni.Destroy;
end;

end;

O caso é que da muito erro.
Alguem pode testar e explicar o que fez para funcionar ou
um exemplo com outro codigo?

Grato
Joao