[Zemius]

Сообщение от Страдалецъ

2. Учитесь оптимизировать код. В вашем кейсе одно и то-же почти без изменений 4 раза. Вынесите за кейс, то что едино примерно так:

Код:

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
 LabeledEdit1.Visible:=True;
 LabeledEdit2.Visible:=True;
 LabeledEdit3.Visible:=False;
 LabeledEdit4.Visible:=false;
 LabeledEdit5.Visible:=false;
 LabeledEdit6.Visible:=false;
 Image1.Visible:=false;
 case ComboBox2.itemindex of
  0: begin
      Image1.Picture.LoadFromFile('1.jpg');
     end; {0}
  1: begin
      Image1.Picture.LoadFromFile('2.jpg');
     end; {1}
  2: begin
       Image1.Picture.LoadFromFile('2.jpg');
     end; {2}
  3: begin
      Image1.Picture.LoadFromFile('3.jpg');
      LabeledEdit3.Visible:=True;
     end; {3}
 end; {case }
 Image1.Visible :=True;
end;

Запомнил на будущее, просто я еще не доработал в той области. Там разные данные будут.