Converter Bitmap para Jpeg

Colega eu uso imagens, mas converto todas elas com FormatFactory, esse programa é muito bom converte até PNG.

não não amigo..

preciso implementar essa função em meu aplicativo.

Pessoal, eu consegui converter as images.. porem é necessario no código dizer o nome de cada image..

Mas preciso que oque o código faça é pegar todas as images .bmp de uma pasta, converter e deletar os bmp.. assim deixando só as JPG..

Só que eu com meu grande conhecimento de Delphi não sei fazer isso.. hehe.

Aqui está o código que estou usando:

procedure ConverterBmpParaJPeg(Arquivo: string);
var

 Bmp: TBitmap;
 JPeg: TJPegImage;

 Bmp := TBitmap.Create;
 try
Bmp.LoadFromFile(Arquivo);
JPeg := TJPegImage.Create;

 JPeg.Assign(Bmp);
 JPeg.SaveToFile(ChangeFileExt(Arquivo, '.jpg'));

 JPeg.Free;
end;
 finally
Bmp.Free;
 end;
end;