procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.SetFocus;
keybd_event(VK_SHIFT,0,0,0);
keybd_event(191,0,0,0);
keybd_event(191,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
end;

Fishman