Как изменить выбранный текстовый атрибут на жирный в TMemo в delphi 7?

Вы не можете форматировать текст в элементе управления заметками. Вам нужен расширенный контроль редактирования, TRichEdit.

Чтобы сделать текущий выбор жирным, вы делаете это:

RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsBold];

Предпочтительный способ вызова кода в ответ на сочетание клавиш, такое как CTRL+A, — использовать действия. Добавьте TActionList в форму и добавьте действие в этот список действий. Настройте обработчик событий OnExecute действия так, чтобы он указывал на код, выполняющий выделение выделенного текста полужирным шрифтом. Установите для свойства Shortcut значение Ctrl+A. Используйте действия, чтобы централизованно управлять пользовательскими событиями. Обычно также может быть кнопка инструмента, пункт меню и пункт контекстного меню, которые выполняют одно и то же действие, и именно здесь действия вступают в свои права.

Вот часть написанной мной программы, использующей RichEdit; часть строки отображается черным цветом, часть синим и, возможно, частью жирным красным цветом. «Текст» — это поле RichEdit.

procedure TWhatever.InsertText (const atext, btext, ctext: string);
begin
 with RichEdit1 do
  begin
   selstart:= length (text);
   sellength:= 0;
   SelAttributes.Color:= clBlack; 
   seltext:= '[' + atext + '] ';

   selstart:= length (text);
   sellength:= 0;
   SelAttributes.Color:= clBlue;
   seltext:= btext + ' ';

   if ctext <> '' then
    begin   // trap non-existent answers
     selstart:= length (text);
     sellength:= 0;
     SelAttributes.Color:= clRed;
     SelAttributes.Style:= [fsBold];
     seltext:= ctext + ' ';
     SelAttributes.Style:= [];
    end;
   lines.add ('');  // new line
  end;
end;