Insira um memo no formulário e insira o seguinte código no evento KeyPress do Memo:

 

  //verifica se tecla A foi apertada e se o ctrl está pressionado

  if (Key = Ord('A')) and (ssCtrl in Shift) then

  begin

    //Seleciona todos os caracteres do Memo

    TMemo(Sender).SelectAll;

    Key := 0;

  end;


 

É isso aí pessoal, vou ficando por aqui.

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho