Выранный текст в ComboBox доавить в Memo

[Rebel123]

Доброго времени суток. Вот что интересует:
Добавляю в строку Memo текст Edit'a вот так:

sMemo3.Lines.Add('(size=5)(b)'+sEdit1.text+'(/size)(/b)');
sMemo3.Lines.Add('(b)Слоган: (/b)'+sEdit2.text);
sMemo3.Lines.Add('(b)Страна: (/b)'+sEdit3.text);
sMemo3.Lines.Add('(b)Производство: (/b)'+sEdit4.text);

все работает, но в ComboBox'om я напрягся, то есть есть в нем много выбора, если выбрал то эта строка добавляется в Memo
пытался сделать так! но вышло глупо и неправильно:

sMemo3.Lines.Add('(b)Год Выпуска: (/b)'+sComboBox1.Items.Strings(sComboBox1.ItemIndex);

Подскажите пожалуйста как это можно реализовать?

[spamer]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Memo1.Lines.Add('(b)Год выпуска: (/b)'+ComboBox1.Text);
end;

Т.е. брать текст надо из свойства ComboBox1.Text

[Rebel123]

спасибо! работает, а как сделать чтоб он добавлялся не в самое начало в Memo а в определенную строку? там же надо ItemsIndex указывать вроде?

[spamer]

Может как то так:

Memo1.Lines.Insert(0,'(b)Год выпуска:(/b)' + ComboBox1.Text);

или так

Memo1.Lines.Strings[0]:='(b)Год выпуска:(/b)' + ComboBox1.Text;

[Rebel123]

почему то работает только если ставить на [0]. А став ил и 4 и 5 не работает почему то! почему не скажите? так как мне 0 не нужен. Ведь 0 это в начало строки.

[ОДИНОЧЕСТВО В СЕТИ]

 procedure insert(k:integer;m:TMemo;st:string);
var i:integer;
 l:Integer;
 s:string;
begin
  l:=m.Lines.Count-1;
  s:=m.Lines[l];
for i:=m.Lines.Count-1 downto k do
 m.lines[i]:=m.lines[i-1];
 m.lines[k]:=st;
m.Lines.Add(s);
end;

пример использования

procedure TForm1.btn1Click(Sender: TObject);
begin
insert(4,memo1,combobox1.text);
end;