Выделить строку RichEdit жирным

[Aleksandr]

Вывожу данные из базы в RichEdit

 RichEdit.Text := 'Организация: ' + ADOTable1.FieldByName('Организация').AsString + #13#10 +
 'Адрес: ' + ADOTable1.FieldByName('Адрес').AsString + #13#10 +
 'Отдел: ' + ADOTable1.FieldByName('Отдел').AsString + #13#10 +
 'Кабинет: ' + ADOTable1.FieldByName('Кабинет').AsString + #13#10 +
 'Фамилия: ' + ADOTable1.FieldByName('ФИО').AsString + #13#10 +
 'IP: ' + ADOTable1.FieldByName('Ip').AsString+ #13#10 +
 'Запущен: ' + ADOTable1.FieldByName('Время_пуск').AsString+ #13#10 +
 'Остановлен: ' + ADOTable1.FieldByName('Время_ост').AsString  ;

А как сделать чтобы строка 'Остановлен: ' + ADOTable1.FieldByName('Время_ост'). AsString выделялась жирным

[Аватар]

RichEdit.SelStart:=100;   //позиция в Text с которой
RichEdit.SelLength:=55;   //длина
RichEdit.SelAttributes.Style:=RichEdit.SelAttributes.Style+[fsBold];

Перед вставкой Остановлен запомнить Length(RichEdit.Text) - это будет SelStart

[Aleksandr]

Не получается. Удаляет все и пишет только последнюю строку

var
SelStart:integer;
begin
 edtNotes.Text := 'Организация: ' + ADOTable1.FieldByName('Организация').AsString + #13#10 +
 'Адрес: ' + ADOTable1.FieldByName('Адрес').AsString + #13#10 +
 'Отдел: ' + ADOTable1.FieldByName('Отдел').AsString + #13#10 +
 'Кабинет: ' + ADOTable1.FieldByName('Кабинет').AsString + #13#10 +
 'Фамилия: ' + ADOTable1.FieldByName('ФИО').AsString + #13#10 +
 'IP: ' + ADOTable1.FieldByName('Ip').AsString+ #13#10 +
 'Запущен: ' + ADOTable1.FieldByName('Время_пуск').AsString+ #13#10 ;
 SelStart:=Length(edtNotes.Text);
 edtNotes.SelStart:=100;   //позиция в Text с которой
edtNotes.SelLength:=55;   //длина
edtNotes.SelAttributes.Style:=edtNotes.SelAttributes.Style+[fsBold];
edtNotes.Text := 'Остановлен: ' + ADOTable1.FieldByName('Время_ост').AsString  ;

[Аватар]

Как вариант

var SelStart,SelLen: Integer;
    s: String;
begin
  edtNotes.Lines.Add('Организация: '+ADOTable1.FieldByName('Организация').AsString);
  edtNotes.Lines.Add('Адрес: '+ADOTable1.FieldByName('Адрес').AsString);
  ...
  edtNotes.Lines.Add('Запущен: '+ADOTable1.FieldByName('Время_пуск').AsString);
  SelStart:=Length(edtNotes.Text);
  s:='Остановлен: '+ADOTable1.FieldByName('Время_ост').AsString;
  SelLen:=Length(s);
  edtNotes.Lines.Add(s);
  edtNotes.SelStart:=SelStart;
  edtNotes.SelLength:=SelLen;
  edtNotes.SelAttributes.Style:=edtNotes.SelAttributes.Style+[fsBold];
//Чтобы не было выделения
  edtNotes.SelStart:=0;
  edtNotes.SelLength:=0;
end;

[Aleksandr]

Спасибо. Получилось.