FileListBox1のOnChangeイベントで次のように記述します。 JPEGファイルを読み込む場合には、uses節にJPEGを追加して下さい。
procedure TForm1.FileListBox1Change(Sender: TObject); begin //ファイルが選択されたとき画像表示 if FileListBox1.ItemIndex > 0 then Image1.Picture.LoadFromFile(FileListBox1.FileName); end;
