[v1s2222]

Говорили же если надо писать несколько команд, пиши begin:

Код:

Memo6.Clear;
case ListBox5.ItemIndex of
0: begin Memo6.Lines.Add('Некий текст');
  Image29.Visible:=true;
  Image30.Visible:=true;
end;
end;