Как конвертировать картинки?

uses  
  Jpeg, ClipBrd;  

procedure TfrmMain.ConvertBMP2JPEG;  
  // converts a bitmap, the graphic of a TChart for example, to a jpeg  
var   
  jpgImg: TJPEGImage;  
begin  
  // copy bitmap to clipboard  
  chrtOutputSingle.CopyToClipboardBitmap;  
  // get clipboard and load it to Image1  
  Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,  
    ClipBoard.GetAsHandle(cf_Bitmap), 0);  
  // create the jpeg-graphic  
  jpgImg := TJPEGImage.Create;  
  // assign the bitmap to the jpeg, this converts the bitmap  
  jpgImg.Assign(Image1.Picture.Bitmap);  
  // and save it to file  
  jpgImg.SaveToFile('TChartExample.jpg');  
end; 

procedure TForm1.Button1Click(Sender: TObject);  
var  
  IconSizeX : integer;  
  IconSizeY : integer;  
  AndMask : TBitmap;  
  XOrMask : TBitmap;  
  IconInfo : TIconInfo;  
  Icon : TIcon;  
begin  
{Получаем размер иконки}  
  IconSizeX := GetSystemMetrics(SM_CXICON);  
  IconSizeY := GetSystemMetrics(SM_CYICON);  

{Создаём маску "And"}  
  AndMask := TBitmap.Create;  
  AndMask.Monochrome := true;  
  AndMask.Width := IconSizeX;  
  AndMask.Height := IconSizeY;  

{Рисуем на маске "And"}  
  AndMask.Canvas.Brush.Color := clWhite;  
  AndMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));  
  AndMask.Canvas.Brush.Color := clBlack;  
  AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);  

{Рисуем для теста}  
  Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);  

{Создаём маску "XOr"}  
  XOrMask := TBitmap.Create;  
  XOrMask.Width := IconSizeX;  
  XOrMask.Height := IconSizeY;  

{Рисуем на маске "XOr"}  
  XOrMask.Canvas.Brush.Color := ClBlack;  
  XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));  
  XOrMask.Canvas.Pen.Color := clRed;  
  XOrMask.Canvas.Brush.Color := clRed;  
  XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);  

{Рисуем в качестве теста}  
  Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);  

{Создаём иконку}  
  Icon := TIcon.Create;  
  IconInfo.fIcon := true;  
  IconInfo.xHotspot := 0;  
  IconInfo.yHotspot := 0;  
  IconInfo.hbmMask := AndMask.Handle;  
  IconInfo.hbmColor := XOrMask.Handle;  
  Icon.Handle := CreateIconIndirect(IconInfo);  

{Уничтожаем временные битмапы}  
  AndMask.Free;  
  XOrMask.Free;  

{Рисуем в качестве теста}  
  Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);  

{Объявляем иконку в качестве иконки приложения}  
  Application.Icon := Icon;  

{генерируем перерисовку}  
  InvalidateRect(Application.Handle, nil, true);  

{Освобождаем иконку}  
  Icon.Free;  
end;  

 
function bmp2emf(const SourceFileName: TFileName): Boolean;  
var  
  Metafile: TMetafile;  
  MetaCanvas: TMetafileCanvas;  
  Bitmap: TBitmap;  
begin  
  Metafile := TMetaFile.Create;  
  try  
    Bitmap := TBitmap.Create;  
    try  
      Bitmap.LoadFromFile(SourceFileName);  
      Metafile.Height := Bitmap.Height;  
      Metafile.Width  := Bitmap.Width;  
      MetaCanvas := TMetafileCanvas.Create(Metafile, 0);  
      try  
        MetaCanvas.Draw(0, 0, Bitmap);  
      finally  
        MetaCanvas.Free;  
      end;  
    finally  
      Bitmap.Free;  
    end;  
    Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf'));  
  finally  
    Metafile.Free;  
  end;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  bmp2emf('C:\TestBitmap.bmp');  
end; 

 function TifToPDF(TIFFilename, PDFFilename: string): boolean;  
var  
  AcroApp : variant;  
  AVDoc : variant;  
  PDDoc : variant;  
  IsSuccess : Boolean;  
begin  
  result := false;  
  if not fileexists(TIFFilename) then exit;  

  try  
    AcroApp := CreateOleObject('AcroExch.App');  
    AVDoc := CreateOleObject('AcroExch.AVDoc');  

    AVDoc.Open(TIFFilename, '');  
    AVDoc := AcroApp.GetActiveDoc;  

    if AVDoc.IsValid then  
    begin  
      PDDoc := AVDoc.GetPDDoc;  

      PDDoc.SetInfo ('Title', '');  
      PDDoc.SetInfo ('Author', '');  
      PDDoc.SetInfo ('Subject', '');  
      PDDoc.SetInfo ('Keywords', '');  

      result := PDDoc.Save(1 or 4 or 32, PDFFilename);  

      PDDoc.Close;  
    end;  

    AVDoc.Close(True);  
    AcroApp.Exit;  

  finally  
    VarClear(PDDoc);  
    VarClear(AVDoc);  
    VarClear(AcroApp);  
  end;  
end;  

 uses
  ..., rxgif, Graphics...;

procedure Gif2Bmp(InputGifPath,OutputBMPPath:String);
var
 Input:TGifImage;
 Output:TBitmap;
begin
 Input:=TGifImage.Create;
 Input.LoadFromFile(InputGifPath);
 Output:=TBitmap.Create;
 Output.Assign(Input);
 Output.SaveToFile(OutputBMPPath);
end;