1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm4.Button2Click(Sender: TObject);
var
  GIF: TGIFImage;
  PNG: TPNGObject;
  BMP: TBitmap;
begin
  GIF := TGIFImage.Create;
  PNG := TPNGObject.Create;
try
  GIF.LoadFromFile(Form4.OpenPictureDialogKarte.FileName);
  PNG.LoadFromFile(Form4.OpenPictureDialogKarte.FileName);
  BMP := TBitmap.Create;
    try
      BMP.Assign(GIF);
      BMP.Assign(PNG);
      Path := ExtractFilePath(Application.ExeName)+'Karten\'+ Edit1.Text + '.bmp';
      BMP.SaveToFile(Path);
    finally
      BMP.Free;
    end;
finally
  GIF.Free;
  PNG.Free;
end;
  DM.Faenge.Edit;
  DM.Faenge.FieldByName('Karten').AsString := (Path);
  DM.Faenge.Post;
  FileListBox1.Update;
  Edit1.Clear;
end;