帮我看看我错在哪里?

[dlss]

下边的代码执行BitBtn1Click时出现"Variant is not an array"错误

unit utThread;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient, MConnect, SConnect, Grids,
DBGrids;

type
TfmMain = class(TForm)
DBGrid1: TDBGrid;
SocketConnection1: TSocketConnection;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OpenTable();
end;

TopenData = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

var
fmMain: TfmMain;

implementation

{$R *.dfm}
procedure TfmMain.OpenTable();
begin
ClientDataSet1.Active:=false;
ClientDataSet1.Active:=true;
end;
procedure TopenData.Execute;
begin
{ Place thread code here }
fmMain.OpenTable;
end;

procedure TfmMain.BitBtn1Click(Sender: TObject);
var
newThread:TopenData ;
begin
newThread:=TopenData.Create(false);
end;

end.

[很土]

代码太长，没时间看，最好写个概要，或自己单步跟踪调试一下，在哪一句出问题，若自己解决不了，再把错误行发上来。

[BES]

好像出在語句：newThread:=TopenData.Create(false);中的 False

[dlss]

跟踪发现
ClientDataSet1.Active:=true;
出错
服务端很简单,什么代码也没写,用的是ADO连接方式,后台是Oracle8i,ADOQuery1的SQL属性:
select * from T_ZHQKB
放置了一个DataSetProvider1,Dataset属性为ADOQuery1,poAllowCommandTxt属性为True

[surfguy]

好像都没问题，我也建议你单步跟踪一下再说，