Move down by the carriage return control cursor

Procedure tfrom1.formkeypress (Sender: Tobject; var key: char); begin if key = # 13 prform (wm_nextdlgctl, 0, 0);