[Resolvido] copiar imagem de um dir para outro

olá pessoal, aqui no sistema eu incluo fotos nos imoveis, porem eu precisava fazer com que as fotos ficassem sempre num diretorio... até ai ok, fiz tambem a programação pra quando a imagem nao estiver nese diretorio ele copia e caso tenha alguma com o mesmo nome ele deveria perguntar se deseja substituir ou não.

o fato é que está pronto isso, mas falta lguns ajutes:

só preciso ajustar o seguinte, quando ele verificar se a imagem já exite tem que dar a opção de subtituir SIM ou NAO!

o sim está pronto, mas como fazer o não?

aqui vai minha programação

var
Origem,

 Destino :array[0..512] of Char;
 Sobrescreve : Boolean;
 Diretorio : String;

begin
if OpenPictureDialog1.Execute then
begin

	Diretorio := 'C:\listagem\images\'+ ExtractFileName(OpenPictureDialog1.FileName);
	if FileExists(Diretorio) then
 else sobrescreve := MessageDlg('O arquivo já existe no destino. Deseja sobrescrevê-lo?', mtConfirmation, [mbOk], 0) = mrYes;
 StrPCopy(Origem, OpenPictureDialog1.FileName);
 StrPCopy(Destino, Diretorio);
 CopyFile(Origem, Destino, Sobrescreve);
 f_incluir_imoveis.Image1.Picture.LoadFromFile(Diretorio);
 dm.t_fotos.Edit;
 dm.t_fotos.Fields.FieldByName('img01').AsString := Diretorio; // < === *** supondo nome campo CaminhoImg
 dm.t_fotos.Post;
 ShowMessage('Foto cadastada!');
 end;
end;

valew