[YVitaliy]

Можно так:

Код:

Memo1.Clear;
if (CheckBox1.Checked) or (CheckBox2.Checked) or (CheckBox3.Checked) or (CheckBox4.Checked) then
 begin
 Memo1.lines.Add('Вы используете...');
  if (CheckBox1.Checked) then Memo1.lines.Add('Visa');
  if (CheckBox2.Checked) then Memo1.lines.Add('Mastercard');
  if (CheckBox3.Checked) then Memo1.lines.Add('..');
  if (CheckBox4.Checked) then Memo1.lines.Add('..');
 end else
 begin
  Memo1.lines.Add('Вы не используете...');

 end;