التحويل من BMP او WMF الى صيغة GIF ؟؟؟

السلام عليكم

لا ادري عن اي جودة تتحدث فعدد الوان صورة GIF لا يتعدى 256

سواء GIF87a او GIF89a المتحركة...

يمكنك استخدام احد المكونات مثل : التي بموقع torry او Finn Tolderlund TGIFImage او Sulako TGIFImage او غيرها...مثل المرفقة في احد المواضيع للأخ عروة

ربما كان هذا الكود مفيدا

uses axCtrls

procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
	OleGraphic := TOleGraphic.Create;
	fs := TFileStream.Create('55.gif', fmOpenRead or fmSharedenyNone);

	OleGraphic.LoadFromStream(fs);
	Image1.Picture.Assign(OleGraphic);
  finally
	fs.Free;
	OleGraphic.Free
  end;

end;

http://www.delphitricks.com/source-code/gr...n_a_timage.html