What is the purpose of the following code snippet?

procedure TfrmShapeSpaceCalc.img2DClick(Sender: TObject);
begin
  lblInstruction.Caption := 'Select the geometric shape for which you would like to calculate the area.';
  img2D.Visible := False;
  img3D.Visible := False;
  pnlShapes.Top := PANEL_TOP;
  pnlShapes.Left := PANEL_LEFT;
  pnlShapes.Visible := True;
  pnlObjects.Visible := False;
  btnBack.Visible := True;
  btnBack.Enabled := True;
end;