varias execuçoes

como faco para nao deixar que um programa delphi nao execute várias vezes como esta acontecendo...ouvi dizer que ha uma funcao mas nao a encontrei...

obrigado...