Problemas com Função

Amigos, boa noite!

Tenho uma função para deletar cadastro e a pasta de fotos desse cadastro, porém nem todos cadastro possuem fotos...

E quando isso acontece (do cadastro não ter pasta de fotos), se clicar no botão delete a função não funciona nem mesmo para excluir o cadastro.

O código atual é:

var
diretorio: String;
begin
// exclui o diretório indicado

 diretorio := '\\server\listagem\images\' + DBid.caption;

 if RemoveDir(diretorio) then

begin //exclui do BD o caminhos das fotos
with dm.q_fotos do
begin

Close;
sql.Clear;
sql.Add('delete from tbl_fotos where id_ligar like '''+ f_incluir_imoveis.db_id.Text +'%''');
ExecSQL;
end; end;

Preciso que aconteça assim ao clicar nesse botão acima:

Caso esse imóvel tenha a pasta (indicada ali no caminho) então: btdeltotal.click;

 

Caso esse imóvel não possua pasta, então: bddelete.click;

Como posso fazer isso? Obrigado,a braços.