回车后自动聚焦到下一个控件

procedure  TfrmItemEdit . Edit1KeyPress(Sender: TObject;  var  Key: Char);
begin
   if  Key =# 13   then   begin
    Key := # 0 ;
    Perform( 40 , 0 , 0 );
   end ;
end ;