[Anton93]

Вызываю картинку из ресурса, они все пронумерованы как вызвать их поочереде через repeate? делаю следующим способом но не знаю что писать после until и вообще правильно ли я делаю? Я знаю что можно путем вызывать подставляя номер картинки, но он мне требуется через repeat.

Код:

var
  ResBmp: TBitmap;
  kaptinka: PChar;
          begin
            repeat
              st:=copy(kaptinka_,1,4);
              if st='kapt' then
                begin
                  _TmplStr:=st;
                  ResBmp.LoadFromResourceName(HInstance, kaptinka);
		//.....
                end;
            until ;
          end;

Прошу не ругаться я только учусь)