// USES SATIRINA JPEG UNIT INI EKLEMEYI UNUTMAYIN.
procedure TForm1.BitBtn3Click(Sender: TObject);
VAR
JPG:TJPEGIMAGE;
BITMAP:TBITMAP;
BEGIN
bitmap := Tbitmap.Create;
jpg := TJpegImage.Create;
jpg.LoadFromFile('C:\RESIMLERIM\DENIZ.JPG');
Bitmap.Width := jpg.Width;
Bitmap.Height := jpg.Height;
Bitmap.Canvas.Draw(0, 0, jpg);
bitmap.SaveToFile('C:\RESIMLERIM\DENIZ.BMP');
jpg.Free;
bitmap.free;
END;