procedure TForm1.ListBox1Click(Sender: TObject); begin case ListBox1.ItemIndex of 0 : begin Image1.Picture.LoadFromFile('Files\zzz.jpg'); end; end;