各控件间进行切换定位的问题(100分)

窗体上有几个dbedit控件和一个dbmemo控件。我想当按了回车键时，光标会按顺序移动，
我用了代码：
procedure TFM_acception.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #9;
selectnext(ActiveControl,true,true);
end;
end;
一切都正常，
但是当我用回车从dbmemo跳到下一个控件后，用鼠标点一下dbmemo，发现dbmemo里多了一个
tab长度的　空格，我想这主要是由于我用了 上面的key := #9;的缘故，问，怎么样解决这个
问题，使不出现那个tab空格？

用这个不到2k的小东西-DOSMOVE，安装完这个控件后，你只要在Form上放上一个，并设成Enable，
再调整好各控件的Tab order顺序，其他什么代码都不用写就行了。
http://www.playicq.com/databack/DosMove.zip

将
key := #9;
改为
key := #0;

procedure TFM_acception.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
selectnext(ActiveControl,true,true);
key := #0;//已经选择下一个控件就把键值设为0
end;
end;

nod