Memo1.SetFocus;
{ Mantém pressionada "CTRL" }
Keybd_Event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
{ Pressiona "HOME" }
Keybd_Event(VK_HOME, 0, 0, 0);
{ Libera (solta) "CTRL" }
Keybd_Event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);