（菜鸟求助）照教程做的图片浏览器，却怎么也运行不了（就剩五分了，急～～！）(5分)

小弟因为毕业设计，需要用到delphi制作多媒体课件．花了一个晚上敲出来的代码，编译运行通过的代码，图片浏览的功能却怎么也实现不了．哪位前辈能帮小弟看看，代码到底哪里有问题，该怎么修正．小弟在线急侯，分不够了．
下面是浏览器的代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Outline, DirOutln, ExtCtrls, StdCtrls, FileCtrl, jpeg;

type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FilterComboBox1: TFilterComboBox;
FileListBox1: TFileListBox;
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Image1: TImage;
procedure DriveComboBox1Change(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure FilterComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure formdestroy(sender:tobject);
procedure FileListBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure filelistbox1click(sender:tobject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
jpg:tjpegimage;
number:integer;

implementation

{$R *.dfm}

procedure displayimg;
var
ext:string[4];
begin
ext:=ansiuppercase(extractfileext(form1.FileListBox1.Items[number]));
form1.Caption:=extractfilename(form1.FileListBox1.Items[number]);
if(ext='.bmp')or(ext='.ico')then
begin
form1.Image1.Picture.LoadFromFile(form1.FileListBox1.Items[number]);
end
else if(ext='.jpg')then
begin
jpg.loadfromfile(form1.FileListBox1.Items[number]);
form1.Image1.Picture.Graphic:=jpg;
end;
form1.Button1.enabled:=true;
form1.Button2.enabled:=true;
if number=0 then
form1.button1.Enabled:=false;
if number=form1.filelistbox1.Items.count-1 then
form1.Button2.Enabled:=false;
form1.filelistbox1.ItemIndex:=number;
end;
procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
number:=0;
directorylistbox1.Drive:=drivecombobox1.drive;
filelistbox1.drive:=drivecombobox1.Drive;
filelistbox1.Directory:=directorylistbox1.Directory;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
number:=0;
filelistbox1.directory :=directorylistbox1.Directory;
end;

procedure TForm1.FilterComboBox1Change(Sender: TObject);
begin
number:=0;
filelistbox1.Mask:=filtercombobox1.Mask;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
filelistbox1.Mask:=filtercombobox1.Mask;
jpg:=tjpegimage.Create;
filelistbox1change(sender);
end;
procedure tform1.formdestroy(sender:tobject);
begin
jpg.free;
end;

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if filelistbox1.Items.Count>0 then
begin
displayimg;
end
else
begin
form1.button1.Enabled:=false;
form1.Button2.Enabled:=false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
dec(number);
displayimg;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
inc(number);
displayimg;
end;
procedure tform1.filelistbox1click(sender:tobject);
begin
number:=filelistbox1.itemindex;
displayimg;
end;

end.