Necesito hacerlo desde el Onclick de un Button.

[BECERRA]

Sí hasta ahí bien, pero necesitaba hacer eso desde el onclick de un button.

procedure TFimprimir.ImprimirClick(Sender: TObject);
begin
key:=VK_DOWN;
end;