Fórum Converter imagem de bmp para jpg #295026

Galera.. estou salvando uma imagem no meu C:\
com o nome de test.bmp..
estou fazendo a conversão dele para jpg..
como posso fazer pra pegar o nome da imagem e depois salva-la com o mesmo nome só que .jpg

meu codigo abaixo


procedure TForm1.Button1Click(Sender: TObject);
var MyJPEG : TJPEGImage;
MyBMP : TBitmap;
cimage :string;
begin
cimage := ´\test.bmp´;
MyBMP := TBitmap.Create;
MyBMP.LoadFromFile(cImage);
MyJPEG := TJPEGImage.Create;
MyJPEG.Assign(MyBMP);
MyJPEG.SaveToFile(cImage + ´.jpg´);
MyJPEG.Free;
end;