aStringList := TStringList.Create;
try
bStringList := TStringList.Create;
try

// others

finally
bStringList.Free;
end;

finally
aStringList.Free;
end;