[Zemius]

Добрый день. В лабораторной №4 вроде все получилось вот только когда в код вписываю эту строчку:

Код:

memo1.Lines.Add( 'Unom ='  +Listbox1.Items[Listbox1.ItemIndex]+' êÂ' );

то выходит такая ошибка при запуске:



Вот сам код программы:

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Unom :real;
begin

 memo1.Clear;

 memo1.Lines.Add( 'Unom ='  +Listbox1.Items[Listbox1.ItemIndex]+' êÂ' );

 memo1.Lines.Add( 'Unom ='  +combobox1.Items[combobox1.ItemIndex]+' êÂ');
 {memo1.Lines.Add(combobox1.Items[1]);
 memo1.Lines.Add(combobox1.Items[2]);
 memo1.Lines.Add(combobox1.Items[3]);
 memo1.Lines.Add(combobox1.Items[4]);
 memo1.Lines.Add(combobox1.Items[5]);
 memo1.Lines.Add(combobox1.Items[6]);
 memo1.Lines.Add(combobox1.Items[7]);
 memo1.Lines.Add(combobox1.Items[8]);
 memo1.Lines.Add(combobox1.Items[9]);
 memo1.Lines.Add(combobox1.Items[10]);
 memo1.Lines.Add(combobox1.Items[11]);}

 ListBox1.Items[0]:='0,4';
 listBox1.Items[1]:=Combobox1.Items[1];
 
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
Button1.Caption:='Ñòàðò';
For i:=0 to 11 do ListBox1.Items[i]:= ComboBox1.Items[i];
end;

end.

Подскажите пожалуйста что делаю не так. Заранее огромное спасибо.