如題，不知這樣的表達是否正確，請各位大大不要見怪，詳述如下：

[code delphi]
procedure TfmMain.DBEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case key of
VK_F3:
begin
DBEdit4.SelLength:= 0;
DBEdit4.SelText:= 'aaa';
end;
VK_F4:
begin
DBEdit4.SelLength:= 0;
DBEdit4.SelText:= 'bbb';
end;
end;
end;[/code]

想把Case Of 這一段寫成一個Procedure，這樣不管是在DBEdit1、DBEdit2、DBEdit3....只要在觸發KeyDown的Event下執行該Procedure，不知這樣的想法是否可行？該如何將DBEdit4轉換成一個變數，也就是紅色字部分會更換為目前的DBEdit物件名稱？
DBEdit4.SelLength:= 0;
DBEdit4.SelText:= 'bbb';

編輯記錄

多翻點書吧..
看一下Sender是什麼，Event是什麼，typecast是什麼，
那麼你就會知道要怎麼達到你要的目的。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

將要以同樣方式處理的TDBEdit的OnKeyDown指定成DBEdit4KeyDown

ex.

DBEdit4.OnKeyDown := DBEdit4KeyDown;



[code delphi]
procedure TfmMain.DBEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
e: TDBEdit;
begin
if Sender is TDBEdit then
begin
E := TDBEdit(Sender);
Case key of
VK_F3:
begin
e.SelLength:= 0;
e.SelText:= 'aaa';
end;
VK_F4:
begin
e.SelLength:= 0;
e.SelText:= 'bbb';
end;
end;
end;
end;
[/code]

編輯記錄

不好意思，公司最近較忙.................
謝謝兩位大大的指導，我會試看看。
想請教jow前輩，DBEdit4.forbidden := DBEdit4KeyDown;
D6的TDBEdit有forbidden嗎？

OnXXX在站內會與某些動作相衝突, 如JAVA/HTML, 所以會被排除,
原意內容為DBEdit4.ＯｎＫｅｙＤｏｗｎ := DBEdit4KeyDown;
===================引 用 wwwbbs 文 章===================
不好意思，公司最近較忙.................
謝謝兩位大大的指導，我會試看看。
想請教jow前輩，DBEdit4.forbidden := DBEdit4KeyDown;
D6的TDBEdit有forbidden嗎？

謝謝jow大大，原來素這個意思，偶還以為這素新的Event
我瞭解了，Thanks

===================引 用 jow 文 章===================
OnXXX在站內會與某些動作相衝突, 如JAVA/HTML, 所以會被排除,
原意內容為DBEdit4.ＯｎＫｅｙＤｏｗｎ := DBEdit4KeyDown;