This is what I needed...
var
h: hwnd;
begin
h := FIndWindow(nil, PCHar('Forma'));
if h <> 0 then begin
SetForegroundWIndow(h);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(VK_MENU,0,0,0);
keybd_event(ORD('A'),0,0,0);
keybd_event(ORD('A'),0,KEYEVENTF_KEYUP,0)...