procedure TForm2.FormShow(Sender: TObject);
    var s,b:integer;
      a:string;
begin
    s:=strtoint(form1.edit2.text);
  for b:=1 to s do begin
   a:=inttostr(b)+'.jpg';
   Image1.Picture.LoadFromFile(a);
   end;


  Timer1.enabled:=true;
  Timer1.Interval:=1000*strtoint(form1.edit1.text);


end;