Saving TIMAGE as GIF in delph 1.0

Does anyone have (and can email to me) or know of (and can give me an FTP
or URL) delphi 1.0 source code that can save a TIMAGE as a GIF file?

thanks in advance

alex birney
(ee3...@bris.ac.uk)