1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TForm_Auswahl.JPEGtoGIF(const FileName: TFileName):TFileName;
var
  jpeg: TJPEGImage;
  gif:  TGifImage;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.LoadFromFile(FileName);
    gif := TGifImage.Create;
    try
      gif.Assign(jpeg);
      gif.SaveTofile(ChangeFileExt(Datei1, '.gif'));
      Datei := ChangeFileExt(Date1,'.gif');
    finally
      gif.Free
    end;
  finally    
    jpeg.Free
  end; 
 result:=Datei;
end;