Code vereinfachen

[S2B]

Hi @all!
Wie kann ich so einen Code vereinfachen:

Delphi-Quellcode:

procedure TForm9.ComboBoxEx1Select(Sender: TObject);
begin
  if ComboBoxEx1.ItemIndex=0 then
  begin
    Memo1.Visible:=true;
    Memo2.Visible:=false;
    Memo3.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=1 then
  begin
    Memo2.Visible:=true;
    Memo1.Visible:=false;
    Memo3.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=2 then
  begin
    Memo3.Visible:=true;
    Memo2.Visible:=false;
    Memo1.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=3 then
  begin
    Memo4.Visible:=true;
    Memo2.Visible:=false;
    Memo3.Visible:=false;
    Memo1.Visible:=false;
  end;
end;

Mir fällt einfach kein Weg ein, wie ich das in eine procedure reinbringen kann und so ist er ein wenig platzfressend!