procedure TestGIF;
var
GIF: ImagingComponents.TImagingGIF;
begin
GIF := ImagingComponents.TImagingGIF.Create;
try
GIF.LoadFromFile('Tigers.gif');
GIF.SaveToFile('Tigers-COPY.gif');
finally
GIF.Free;
end;
end;
Page created in 0.032 seconds with 19 queries.