아래의 소스중에 // 부분을 처리하려고 합니다. 
어떻게 해야되는지 도져히 모르겠네염..
여기저기 팁을 찾아보니 SHIFT키가 눌렸는지 체크하는건 많이 있는데
SHIFT키와 TAB를 같이 눌리도록 하는것 도져히 못찾겠어어..이렇게
질문을 올립니다..  
  ....
    Application.OnMessage :=  AppMessage;
  .....
Procedure TForm1.AppMessage(var Msg: TMSg; Var Handled:Boolean);
begin
       if Msg.wParam = VK_ESCAPE THEN
       begin
         
           // 요부분에 SHIFT+TAB이 눌린것처럼 처리하려고 합니다.
       end; 
end;
			 
	
	
    
    
	
	
    
    
    
// Edit 들은 테스트로 그냥 올려놓은 것입니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
end.