Hacer evento Tab en TEdit

[JELIRM]

Hola,
Gracias Egostar mira que casualidad que algo asi hice para solucionar el problema lo unico que lo hice con el foco, como lo plantee anteriormente que queria saber como capturar en objeto se encontraba mi foco y inventando lo encontre!!!!!!!! el codigo es el siguiente:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;

procedure FormCreate(Sender: TObject);
private
procedure CMDialogKey(Var Msg: TWMKey) ;
message CM_DIALOGKEY;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure TForm1.CMDialogKey(Var Msg: TWMKEY) ;
begin
if (ActiveControl is TEdit) and (Edit1.Focused) and
(Msg.Charcode = VK_TAB) then begin
ShowMessage('La Tecla TAB en Edit 1 esta Presionada?') ;
inherited;
end
else
if (ActiveControl is TEdit) and (Edit2.Focused) and
(Msg.Charcode = VK_TAB) then begin
ShowMessage('La Tecla TAB en Edit 2 esta Presionada?') ;
inherited;
end;

end;

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

El unico problema que le veo a este forma de resolverlo es que si yo quiero que el comportamiento con la tecla Tab para otros Tedit que yo no quiera que hagan ninguna accion sino que sean normales como un TEdit sin alteracion, no se puede tendria que ponerle oblligatoriamente una accion a cada uno.
Tu mencionabas dos Soluciones mas una que es similar a la que estoy exponiendo aqui y la otra como seria?????, Es de evaluar talvez me convenga mas la otra.

Gracias.. FORO
---Las Caidas te Hacen Aprender a Caminar--