Fechar Janela Simulando Enter

[Guest --BRUNO --]

Bom dia galera!!!

Estou querendo fechar um programa que fica mostrando uma tela com os botões (repetir e cancelar) fiz

Esse comando PostMessage(FindWindow(nil, pchar(T)), WM_CLOSE , 0, 0) mais ele faz finalizar o programa tem alguma forma dele executar a simulação do enter ou executar o click no repetir?

Bruno Samuel

[Jhonas]

simulando o precionamento da tecla <Enter>

procedure TForm1.Button1Click(Sender: TObject);
begin

  keybd_event(VK_RETURN, 0, 0, 0);  // simulando o precionar da tecla enter

end;