知道的请进来指教一下
我的程序是这样的
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判断的时候,就没有这个错误,请帮我看看吧

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