ふつう

A := TStringList.Create；
B := TObjectList.Create；

のようにして使う。その例だと with 使うのはバグの温床