菜鸟新手请教关于TVNCViewer问题，本人积分有限，请高抬贵手(50分)

本人动态生成几个小的TVNCViewer窗口，在form的正中间放一个大的TVNCViewer窗口
界面是用 N个小的TVNCViewer窗口围绕一个大的TVNCViewer窗口
这些窗口可以监控局域网内部的其他计算机
本程序的其中一个功能是点击小窗口标题，小窗口内容可以与大窗口同步显示
原本想法：首先点击小窗口1，使大窗口同步显示小窗口1里面的内容
然后，随便选择其他小窗口，用一个disconnect，可以取消此窗口的监控
出现问题：当我disconnect其他小窗口的时候，小窗口1里面的内容也消失了，但是
小窗口1没有disconnect，当点击其他监控的小窗口，小窗口1内容被重现显示

请教各位，如何解决此问题。。。可能本人表述不清。。。。有问题可以发问，立即回答
disconnect代码如下：
//MasterViewer: TVNCViewer;
//AVNCViewer: array of TVNCViewer; //显示客户端的小窗体数组
procedure TMainForm.citDisconnectClick(Sender: TObject);
var
i,j: Integer;
begin
for i := 0 to Length(ASmallViewer) - 1 do begin
if i = StrToInt(Copy((pmSmallViewer.PopupComponent as TTeLabel).Name,
Length((pmSmallViewer.PopupComponent as TTeLabel).Name), 1)) - 1 then begin
//如果是主屏幕正在显示的.
if i = SmallViewerIndex then begin
SetViewerSize(MasterViewer);
Self.MasterViewer.Stop;
Self.MasterViewer.Disconnect;
Self.MasterViewer.Visible := False;
Self.tpMasterViewer.Caption := 'Main viewer';

SetViewerSize(AVNCViewer);
AVNCViewer.Stop;
AVNCViewer.Disconnect;
AViewerHosts := '';
MainHost := '';
ASmallViewer.Caption := 'Viewer' + IntToStr(i + 1);
FixImage.Visible := False;
SmallViewerIndex:=-1;
end
//如果不是主屏幕正在显示的
else begin
SetViewerSize(AVNCViewer);
AVNCViewer.Stop;
AVNCViewer.Disconnect;
AViewerHosts := '';
ASmallViewer.Caption := 'Viewer' + IntToStr(i + 1);
FixImage.Visible := False;
end;

Break;
end;
end;
end;

UP一UP，等待大家指教。。。。。。。。。。。

解决了，谢谢