大家帮忙，关于gif图片显示问题！在线急等

谁能给我一段显示gif的代码，下午要交工。我还没有做完，我这里有gifimg，需要的给我要下面是我写的一点，有错误[Fatal Error] openpict_Unit.pas(7): File not found: 'gif.dcu'
我的msn  [email protected]
    qq  112193644
谢谢了unit openpict_Unit;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs,gif;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    opd: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure odCanClose(Sender: TObject; var CanClose: Boolean);
    procedure opdCanClose(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    OpD.Execute;
end;
procedure TForm1.opdCanClose(Sender: TObject; var CanClose: Boolean);
begin
   if opd.Execute then 
     tImage.Picture.LoadFromFile(opd.filename);    
end;
[