Controle de concorrência

No java existe o comando LOCK que garante que aquele pedaço de código será executado primeiro se que execute nada em paralelo e depois de deve dar UNLOCK .... no eu preciso fazer algo semelhante pois tenho 2 threads rodando e quero que quando o método de uma seja executado, ele seja executado todo para depois a outra thread continuar rodando... no delphi como eu faço isso ???