아래와 같이 햇는데 에디터간 커서이동이 안대네요
unit Unit1;

interface

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

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

    procedure Edit3KeyDown(sender:tobject;var key:word; shift:tshiftstate);
    procedure Edit4KeyDown(sender:tobject;var key:word; shift:tshiftstate);
    procedure Edit5KeyDown(sender:tobject;var key:word; shift:tshiftstate);
    procedure Edit1KeyDown(sender:tobject;var key:word; shift:tshiftstate);
    procedure Edit2KeyDown(Sender:TObject;var key:word; shift:tshiftstate);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Edit3KeyDown(Sender:TObject;var Key:Word; Shift:TShiftState);
begin
Case Key of
40: edit5.SetFocus;
39: edit4.SetFocus;
38: edit1.SetFocus;
37: edit2.SetFocus;
end;    end;
procedure tform1.Edit4KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
if key=37 then edit3.SetFocus; end;

procedure Tform1.Edit5KeyDown(Sender:TObject;var key:word;Shift:tshiftstate);
begin
if key=38 then edit3.setfocus;
end;

procedure TForm1.Edit1KeyDown(Sender:TObject;var key:word;Shift:TShiftState);
begin
if key=40 then edit3.setFocus;
end;

procedure TForm1.Edit2KeyDown(Sender:TObject;var key:word;shift:tshiftstate);
begin
if key=39 then edit3.setfocus;
end;






end.