Практична робота в Delphi "Вартість обіду"

Составить меню обеда.

Рассчитать стоимость обеда.

CheckListBox:  Свойство Items: ТStrings

ListBox:  Свойство Items: ТStrings

Двойной щелчок на CheckListBox, вписать недостающие строки

procedure TForm1.CheckListBox1Click(Sender: TObject);

var i : word;

  S : double;

begin

  S:=0;

  with CheckListBox1 do

  for i:=0 to Items.Count-1 do begin

    if Checked[i] then begin

      if ListBox1.Items.Strings[i]<>'' then

      S:=S+StrToFloat(ListBox1.Items[i]);

    end;

  end;

  Panel1.Caption:=FloatToStr(S);

end;