질문을 여기 저기 올리시는 군요^^
여하튼 여기도 JPeg변환만 간단히 예제를..

From 류..

---------

Procedure SaveImageToJPG(Graphic:TPersistent; FileName:String; Quality:Integer);
Var
   JP : TJPEGImage;
Begin
  JP:= TJPEGImage.Create;
  JP.CompressionQuality:= Quality;
  JP.Performance:= jpBestQuality;
  JP.Assign(Graphic);
  JP.PixelFormat:= jf24Bit;
  JP.Compress;
  JP.SaveToFile(FileName);
  JP.Free;
end;