procedure TForm1.Timer1Timer(Sender: TObject); begin if (StrToInt(label7.Caption)<=FileListBox1.Items.Capacity) then begin FileListBox1.Selected[StrToInt(label7.Caption)]:=True; Image1.Picture.LoadFromFile(FileListBox1.FileName); image1.Visible:=True; label7.Caption:=IntToStr(StrToInt(label7.caption) + 1); timer1.Enabled:=true; end else begin button2.Enabled:=true; button3.Enabled:=true; button1.Enabled:=true; button5.Enabled:=true; Image1.Align:=alCustom; Image1.Top:=8; Image1.Height:=489; Image1.Width:=721; Image1.Left:=24; form1.FormStyle:=fsNormal; form1.width:=725; form1.height:=490; Form1.WindowState:=wsNormal; Form1.Cursor:=crDefault; Form1.BorderStyle:=bsSingle; end;