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