procedure Tf.SpeedButton1Click(Sender: TObject);
var dir:string; a:integer;
begin
      if SelectDirectory('Выберите каталог','',dir) then begin
         //перебираем возможные файлы
         for a:=1 to 100000 do begin  // (:
             if FileExists(utf8toansi(dir+'\n'+inttostr(a)+'_back.jpg')) then begin  //utf8toansi() в лазаре проблемы с кириллицей
                f.Image1.Picture.Jpeg.LoadFromFile(dir+'\n'+inttostr(a)+'_back.jpg');
                break;
             end;
         end;
         for a:=1 to 100000 do begin
             if FileExists(utf8toansi(dir+'\n'+inttostr(a)+'_bottom.jpg')) then begin
                f.Image2.Picture.Jpeg.LoadFromFile(dir+'\n'+inttostr(a)+'_bottom.jpg');
                break;
             end;
         end;

         //...

      end;
end;             

{uses FileCtrl, Jpeg;}
procedure Tf.SpeedButton1Click(Sender: TObject);
var dir:string; p:PWideChar; jpg:TJPEGImage;
begin
   if SelectDirectory('Выберите каталог',p,dir) then begin
      jpg:=TJPEGImage.Create;
      if FileExists(dir+'\n1_back.jpg') then begin
         jpg.LoadFromFile(dir+'\n1_back.jpg');
         f.Image1.Canvas.Draw(0,0,jpg);
      end;
      if FileExists(dir+'\n1_bottom.jpg') then begin
         jpg.LoadFromFile(dir+'\n1_bottom.jpg');
         f.Image2.Canvas.Draw(0,0,jpg);
      end;
      //...

      jpg.Free;
   end;
end;

flag n = 0
flag s = 0

block x

if s  = 0 {   
    if n = 1 { fog 40 ( 255 100 100 ) }
    if n = 200 { fog 40 ( 0 0 0 ) }
    if n = 400 { fog 5 ( 0 0 0 )   sound 15 }
    if n = 500 { fog 40 ( 255 100 100 ) sound 16 }
    if n = 800 { fog 10 ( 255 255 255 ) sound 16 }
    flag n + 1
    if n = 1000 { flag n = 1 }
    enemy 3 = 0 { flag s =1   fog 40 ( 0 0 0 ) passag ( 119 119 2 ) }

}

go x