刷卡程序，关于焦点问题

Question

写了一个刷卡程序如下：　　　|`````````````````````````````````````````````````````````````````````````|
      |　请刷卡:|``Edit1```````````````|  //当点击其它控件时焦点始终在edit1上   | 
      | 　　　　~~~~~~~~~~~~~~~~~~~~~~~　　                                     |
      |  //因为当鼠标点击其他控件时，焦点就不在Edit1上了，而每次刷卡都要点一    | 
      |  //下Edit1,这样就非常不方面了,有什么方法可以使焦点始终在Edit1吗？　　　 |
      |                                                                         |
      |　|````````|`````````````````````|````````````````````````````````````|  |
      |  |````````|`````````````````````|````````````````````````````````````|  |
      |  |````````|`````````````````````|````````````````````````````````````|  |
      |  `````````````````````````````````````````````````````````````````````  |
      ```````````````````````````````````````````````````````````````````````````

Answer 1

|`````````````````````````````````````````````````````````````````````````|
|　请刷卡:|``Edit1```````````````|  //当点击其它控件时焦点始终在edit1上   | 
| 　　　　~~~~~~~~~~~~~~~~~~~~~~~　　                                     |
|  //因为当鼠标点击其他控件时，焦点就不在Edit1上了，而每次刷卡都要点一    | 
|  //下Edit1,这样就非常不方面了,有什么方法可以使焦点始终在Edit1吗？　　　 |
|                                                                         |
|　|````````|`````````````````````|````````````````````````````````````|  |
|  |````````|`````````````````````|````````````````````````````````````|  |
|  |````````|`````````````````````|````````````````````````````````````|  |
|  `````````````````````````````````````````````````````````````````````  |
```````````````````````````````````````````````````````````````````````````

Answer 2

procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text='' then Edit1.SetFocus;
end;
没有任何刷卡数据时,不允许焦点离开Edit1;

Answer 3

哦,不好意思,没说清楚。我是想让焦点一直停在Edit1上面，但同时我还要进行其它操作，比如：我想在memo1输入内容时，Edit1还能获得焦点（是不是要用什么MDI社会窗体？），飞跃机房管理系统他是那样做到了。

Answer 4

我想做到的就是每次刷卡前不管焦点在那个控件上面，都不用~点~一下那个edit1，把焦点传给它。应该怎样实现，谢谢！！！！