知道的请进来指教一下,该如何解决

知道的请进来指教一下
我的程序是这样的
unit   lp;

interface

uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs,   ExtCtrls,   ComCtrls,   StdCtrls,   ADODB,   DB,   RzLine;

type
    TForm3   =   class(TForm)
        Panel1:   TPanel;
        Panel4:   TPanel;
        Panel2:   TPanel;
        Panel3:   TPanel;
        Panel5:   TPanel;
        Label1:   TLabel;
        Label2:   TLabel;
        Edit1:   TEdit;
        Edit2:   TEdit;
        GroupBox1:   TGroupBox;
        tv1:   TTreeView;
        GroupBox2:   TGroupBox;
        Label3:   TLabel;
        Label4:   TLabel;
        Label5:   TLabel;
        ComboBox1:   TComboBox;
        ComboBox2:   TComboBox;
        ComboBox3:   TComboBox;
        Edit3:   TEdit;
        Button1:   TButton;
        Button2:   TButton;
        Button3:   TButton;
        Button4:   TButton;
        Button5:   TButton;
        PageControl1:   TPageControl;
        TabSheet1:   TTabSheet;
        TabSheet2:   TTabSheet;
        TabSheet3:   TTabSheet;
        Label6:   TLabel;
        Label7:   TLabel;
        Label8:   TLabel;
        Label9:   TLabel;
        Edit4:   TEdit;
        Edit5:   TEdit;
        Edit6:   TEdit;
        Label10:   TLabel;
        RadioGroup1:   TRadioGroup;
        RadioGroup2:   TRadioGroup;
        RzLine1:   TRzLine;
        RzLine2:   TRzLine;
        Edit7:   TEdit;
        Edit8:   TEdit;
        Edit9:   TEdit;
        Edit10:   TEdit;
        Edit11:   TEdit;
        Edit12:   TEdit;
        Edit13:   TEdit;
        Edit14:   TEdit;
        Edit15:   TEdit;
        Panel6:   TPanel;
        Panel7:   TPanel;
        Panel8:   TPanel;
        Panel9:   TPanel;
        Panel10:   TPanel;
        ADOConnection1:   TADOConnection;
        ADOTable1:   TADOTable;
        DataSource1:   TDataSource;
        ADOQuery1:   TADOQuery;

        DataSource2:   TDataSource;
        ADOTable2:   TADOTable;
        ADOTable3:   TADOTable;
        ADOTable4:   TADOTable;
        procedure   FormCreate(Sender:   TObject);
    private
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    Form3:   TForm3;

implementation

{$R   *.dfm}

procedure   TForm3.FormCreate(Sender:   TObject);
var
mynode,tynode,pynode:ttreenode;//初节点定义；
lpid1,lpid2,lpid3:string;//连接标记声明；
begin
tv1.Items.Clear;
adotable1.First;
if   adotable1.IsEmpty   then
tv1.Items.Add(nil, '现在没有病号登记 ')
else
begin
repeat
lpid1:=   adotable1.fieldbyname( 'id ').asstring;     //取出连接标记；
lpid2:=adotable1.fieldbyname( 'pid ').asstring;
lpid3:=adotable1.fieldbyname( 'ccid ').asstring;
mynode:=tv1.items.add(tv1.selected,adotable1.fieldbyname( 'id ').asstring);   //病人基本信息初始化；
tv1.items.addchild(mynode,adotable1.fieldbyname( 'name ').asstring);
tynode:=tv1.items.addchild(mynode,adotable1.fieldbyname( 'sex ').asstring);


adotable2.First;//查询治疗部位(zhiliaobuwei)
if   adotable2.IsEmpty   then
tynode:=tv1.items.addchild(mynode, '尚无记录 ')
else
begin
repeat
if   (lpid1=adotable2.fieldbyname( 'id ').asstring)     and   (lpid3=adotable2.fieldbyname( 'ccid ').asstring)   then           //连接判断；
pynode:=tv1.items.add(tynode,adotable2.fieldbyname( 'zhiliaobuwei ').asstring);

adotable3.First;         //查询治疗射野；
if   adotable3.IsEmpty   then
tv1.items.addchild(pynode, '无记录 ')
else
repeat
if   (lpid1=adotable3.fieldbyname( 'id ').asstring)     and   (lpid3=adotable3.fieldbyname( 'ccid ').asstring)then
tv1.items.addchild(pynode,adotable3.fieldbyname( 'sheye ').asstring);
adotable3.Next;
until   adotable3.eof;


adotable2.Next;
until   adotable2.Eof;
end;
//tv1.items.addchild(mynode,adotable1.fieldbyname( 'zhiliaobuwei ').asstring);
adotable1.Next;
until   ADOTable1.eof;
end;
end;
end.
运行的时候就会出错
但是我不用lpid3和ccid判断的时候,就没有这个错误,请帮我看看吧

[解决办法]
报什么错?
[解决办法]
标题不写问题，内容没有把问题写清楚，小心被删贴