uses GDIPAPI, GDIPOBJ, GDIPUTIL;
var
 img: TGPImage;
 encoderClsid: TGUID;
 stat: TStatus;
 error_string: string;
begin
 img := TGPImage.Create('c:Ccat.bmp');
 // получаем идентификатор класса кодировщика gif 
 GetEncoderClsid('image/gif', encoderClsid);
 stat := img.Save('c:Cat.gif', encoderClsid, nil);
 if(stat = Ok) then : {ВСЕ В ПОРЯДКЕ} else { ОШИБКА СОХРАНЕНИЯ };
 error_string := GetStatus(stat);
end;