type
TStringListarr=array of TStringList;
Var
B:TStringListarr;
j:integer;
begin
SetLength(B, 4);
For j:=0 to 3 do
Begin
B[j]:=TStringList.Create;
End;
end;[@more@]