>>458
for do begin
SetLength(a,length(a)+1);
end;