delphi7做网页信息采集系统时遇到问题

Question

我用delphi7做一个网页信息采集系统，界面如下：代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure into(i:Word);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses UI_Less;{$R *.dfm}procedure TForm1.into(i:Word);
var
sh:TUILess;
su:boolean;
surl:PWideChar;
begin
surl:=PWideChar(Trim(Edit1.Text));
sh:=TUILess.Create(nil);
try
Memo1.Clear;
case i of
1:
sh.GetAnchorList(sh.Get(surl,su,False),Memo1.Lines);
2:
sh.GetImageList(sh.Get(surl,su,False),Memo1.Lines);
3:
begin
sh.Get(surl,su,False);
Memo1.Lines:=sh.BodyHtml;
end;
end;finally
sh.Free;end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
       into(1);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
into(2);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
into(3);
end;procedure TForm1.Button4Click(Sender: TObject);
begin
into(4);
end;end.
但是点击任何一个按钮时，会出现如下提示：求各位给我指点，比较急啊，小弟在此谢谢大家了！

Answer 1

00000000这种错是访问了不存在的对象，检查一下sh.BodyHtml是否为nil