procedure TForm1.Button1Click(Sender: TObject);
var
a, b: TStringList;

begin
a := TStringList.Create;
a.Add('XXX');
b := a.Create;
b.Add('YYY');
Button1.Caption := a.CommaText;
end;
を実行した場合のButton1.Captionの値は何でしょう？