---

procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
  s := Edit1.Text;
  case s of
    'М': Memo1.Line.Add := 'Марс, Меркурій';
    'В': Memo1.Line.Add := 'Венера';
    'С': Memo1.Line.Add := 'Сатурн';
    'У': Memo1.Line.Add := 'Уран';
    'Н': Memo1.Line.Add := 'Нептун';
    'З': Memo1.Line.Add := 'Земля';
    'Ю': Memo1.Line.Add := 'Юпітер';
  end;
  end;
end;

---

---

---