BMP para JPG

Estou gravando uma foto no meu banco de dados, mas antes transformo de bmp para jpeg com essa rotina

[i:0071e303ce]procedure BmpToJpeg(Arquivo: string; Qualidade:integer = 50);
var
Bmp: TBitmap;
JPeg: TJPegImage;
NomeArq : String;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(Arquivo);
JPeg := TJPegImage.Create;
try
JPeg.CompressionQuality:=Qualidade;
JPeg.Assign(Bmp);
[b:0071e303ce]JPeg.SaveToFile(ChangeFileExt(Arquivo, ´.jpg´));[/b:0071e303ce]
finally
JPeg.Free;
end;
finally
Bmp.Free;
end;
end;[/i:0071e303ce]

porem quando chega na linha em negrito dah um erro dizendo que nao pode criar o arquivo, na primeira vez funciona, mas a partir da segunda dah esse erro:
Cannot create file ´Caminho do arquivo\Capture.jpg´
o q significa isso?

obrigada,
K-ROL