проблема с Циклом. не проходит латинский алфавит ((

[Sibedir]

в компоненте PngImageList просто добавляю и он добавляется нормально

А если так?

  gif := TGifImage.Create;
  gif.LoadFromFile(Path+'az.gif');

может у вас просто в имени файла 'az.gif' буква 'а' русская?

Добавленно ---------------------------------------------------------
А-а-а, ну всё, понял. У вас ошибка вот здесь

  gif.Width:=47;

, a не при загрузке файла. Скиньте-ка ay.gif и az.gif.

[KWN, lnc]

по поводу того что проблема в gif.Width:=47;
я удалил эту строку так после вообще несколько перестал загружать!
а вот и ay и и az см. вложение

[Sibedir]

Ну не знаю. У меня вот это

procedure TForm1.Button2Click(Sender: TObject);
var
  i, hs, vs: Integer;
  gif: TGifImage;
  path: String;
begin
  gif := TGifImage.Create;
  path := ExtractFilePath (Application.ExeName);
  for i := 97 to 122 do begin
    gif.LoadFromFile(Path+'a'+chr(i)+'.gif');
    hs:=(47-gif.Width) div 2;
    vs:=(34-gif.Height) div 2;
//    gif.Width:=47;
//    gif.Height:=34;
  end;
  Image1.Picture.Assign (gif);
  FreeAndNil(gif);
end;

отработало и с вашими и с кучей моих гифок. Может у вас какой-то корявый модуль для работы с gif? Вот я этот скачал: gifimage.zip

[KWN, lnc]

я разобрался. тему можна закрывать! оказывается там кусок кода мешал))

только что здесь нерпавильно?

  For Im:=0 To gif.Images.Count-1 Do
  Begin
    gif.Images[Im].Left:=gif.Images[Im].Left+hs;
    gif.Images[Im].Top:=gif.Images[Im].Top+vs;
  End;