To fix your problem change
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
GetImage(FileListBox1.FileName);
PrepareNext(FileListBox1.ItemIndex + 1);
end;
To
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
GetImage(FileListBox1.FileName);
PrepareNext(FileListBox1.ItemIndex + 1);
end;
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html