Mep Sites: Dicas de Delphi - Aplicar CTRL+A para selecionar tudo

Coloque o código abaixo por exemplo no evento onKeyDown de um memo ou RichEdit:

if (Shift = [ssCtrl]) then
case Key of
65: TRichEdit(Sender).SelectAll;
end;