Конвертирование изображения из bmp в gif

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, GIFImage, Buttons;
 
type
  TFormAnimate = class(TForm)
    Button1: TButton;
    btn1: TBitBtn;
    img1: TImage;
    dlgOpen1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormAnimate: TFormAnimate;
 
implementation
 
{$R *.DFM}
 
procedure ConvertBMP2GIF;
var
 bmp: TBitmap;
 gif: TGIFImage;
begin
 gif:=TGifImage.Create;
 
 try
  bmp:=TBitmap.Create;
 
  try
   bmp.LoadFromFile(Безымянный.bmp');
   gif.Assign(bmp);
 
  finally
   bmp.Free;
  end;
 
  gif.SaveToFile(Безымянный.gif');
 finally
  gif.Free;
 end;
end;
 
procedure TFormAnimate.Button1Click(Sender: TObject);
begin
 ConvertBMP2GIF;
end;
 
procedure TFormAnimate.btn1Click(Sender: TObject);
begin
  if dlgOpen1.Execute and
FileExists(dlgOpen1.FileName) then
img1.Picture.LoadFromFile(dlgOpen1.FileName);
end;
 
end.

ar
  FormAnimate: TFormAnimate;
 
implementation
 
{$R *.DFM}
 
var
   path:string;
 
...
 
procedure ConvertBMP2GIF();
var
 bmp: TBitmap;
 gif: TGIFImage;
begin
 gif:=TGifImage.Create;
 
 try
  bmp:=TBitmap.Create;
 
  try
   bmp.LoadFromFile(path);
   gif.Assign(bmp);
 
  finally
   bmp.Free;
  end;
 
  gif.SaveToFile('Безымянный.gif');
 finally
  gif.Free;
 end;
end;
 
procedure TFormAnimate.btn1Click(Sender: TObject);
begin
  if dlgOpen1.Execute and
FileExists(dlgOpen1.FileName) then
begin
path:=dlgOpen1.FileName; 
img1.Picture.LoadFromFile(dlgOpen1.FileName);
end;
end;

gif.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Безымянный.gif');

bmp.LoadFromFile(path);

var
  FormAnimate: TFormAnimate;
 
implementation
 
{$R *.DFM}
 
procedure ConvertBMP2GIF;
var
 bmp: TBitmap;
 gif: TGIFImage;
begin
 gif:=TGifImage.Create;
 
 try
  bmp:=TBitmap.Create;
 
  try
   bmp.LoadFromFile('Áåçûìÿííûé.bmp');
   gif.Assign(bmp);
 
  finally
   bmp.Free;
  end;
 
  gif.SaveToFile('\Áåçûìÿííûé.gif');
 finally
  gif.Free;
 end;
end;

procedure TFormAnimate.Button1Click(Sender: TObject);
begin
 ConvertBMP2GIF;
end;

procedure ConvertBMP2GIF(SrcBMPFileName, DestGIFFileName: string);
var
  bmp: TBitmap;
  gif: TGIFImage;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(SrcBMPFileName);
  finally
  end;
 
  gif := TGifImage.Create;
  try
    gif.Assign(bmp);
    gif.SaveToFile(DestGIFFileName);
  finally
    bmp.Free;
    gif.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fname: string;
begin
  if OpenDialog1.Execute then begin
    fname := OpenDialog1.FileName;
    SetLength(fname, ExtractFileExt(fname)); // Отрезали расширение файла
    ConvertBMP2GIF(OpenDialog1.FileName, fname + '.gif'); // Сохранить GIF рядом с исходным файлом
  end;
end;

procedure TFormAnimate.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute and
FileExists(dlgOpen1.FileName) then
img1.Picture.LoadFromFile(dlgOpen1.FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fname: string;
begin
  if OpenDialog1.Execute then
    try
      bmp.LoadFromFile(OpenDialog1.FileName); // bmp ранее созданный битмап, возможно, принадлежит Image
    except
      ShowMessage('Не удалось загрузить файл.');
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  fname: string;
  gif: TGIFImage;
begin
  // Преобразовываем и сохраняем открытый ранее битмап
  if OpenDialog1.Execute then begin
    // OpenDialog всё ещё содержит имя файла. Но по хорошему надо бы сохранить
    // имя открываемого файла в отдельной переменной.
    fname := OpenDialog1.FileName;
    SetLength(fname, ExtractFileExt(fname)); // Отрезали расширение файла
 
    gif := TGifImage.Create;
    try
      gif.Assign(bmp);
      gif.SaveToFile(fname + '.gif'); // Сохранить GIF рядом с исходным файлом
    finally
      gif.Free;
    end;
  end;
end;