我想當DirectoryListBox改變時將所有text box的file name放入個dynamic array of checkbox ，但每次個directory改紋時，如果之前個folder有的text file多過之後個folder會將之前的file name在下面display，請問各位大大怎樣可以slove這問題呢

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var NoOfPrefixFile : integer;
CaptureFileCheckBox : array of TCheckBox;
begin
CaptureFileCheckBox:=nil;
for i:= 0 to FileListBox1.Count-1 do
begin
if AnsiContainsText(FileListBox1.Items.Strings[i],'.txt') = true then begin
SetLength(CaptureFileCheckBox, NoOfPrefixFile);
CaptureFileCheckBox[NoOfPrefixFile] := TCheckBox.Create(self);
CaptureFileCheckBox[NoOfPrefixFile].Caption:=filePrefix[NoOfPrefixFile];
CaptureFileCheckBox[NoOfPrefixFile].Parent := self;
CaptureFileCheckBox[NoOfPrefixFile].Top := (i 2)*20;
CaptureFileCheckBox[NoOfPrefixFile].Left := 180;
NoOfPrefixFile:=NoOfPrefixFile 1;
end;
end;
end;

thanks 各位大大

筆誤不少, 看不出要問什麼 ???

thanks for your reply
i solve the problem now
i know that the problem occuring when i forget to free dynamic array of checkbox