[angvelem]

Нужно не забывать заключать код в операторные скобки.

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  case ListBox1.ItemIndex of 
    0 :
    begin
      Panel1.Height := 300;
      Panel1.Width := 300;
      Panel1.Font.Name := 'ms pgothic';
      Panel1.Color := clGreen;
    end;
    1 :
    begin
      Panel1.Height := 80;
      Panel1.Width := 200;
      Panel1.Font.Name := 'ms pmincho';
      Panel1.Color := clPurple;
    end;
    2 :
    begin
      Panel1.Height := 200;
      Panel1.Width := 150;
      Panel1.Font.Name := 'ms sans serif';
      Panel1.Color := clBlack;
    end;
  end;
end;