Delphi - програмная эмуляция удержания кнопок клавиатуры

т.е. рассчитывать задержку ввода с клавиатуры и в цикле с этой задержкой прогонять keybd_event как в моём примере?