Перемещение курсора

[SPQR10000]

Всем доброго времени суток!
У меня вот какая дилемма:
Мне нужно чтобы при нажатии на кнопку Ентер курсор переключался с активного окна(Edit1)на следующее,а при нажатии в 3-ем окне кнопки ентер,нужно чтобы запускалась процедура вычисления.
Вычисления я сделал,а вот переключение курсора-нет.
Код прилагаю:

unit vadr;

var
  Form1: TForm1;
  first,x1,x2,a2,b2,c2,cx:real;
  key:char;
  implementation

{$R *.dfm}

procedure TForm1.exitClick(Sender: TObject);
begin
close;
end;

procedure TForm1.aboutClick(Sender: TObject);
begin
showmessage('Автор программы:Дмитрий Викторович aka X-Cod');
end;

procedure TForm1.resetClick(Sender: TObject);
begin
a.Clear;
b.Clear;
c.Clear;
zn1.Clear;
zn2.Clear;
end;

procedure TForm1.raschetClick(Sender: TObject);
begin
if a.Text<>'' then
a2:=strtofloat(a.Text);
b2:=strtofloat(b.Text);
c2:=strtofloat(c.Text);
if (a.Text='0')or(a.Text='') then
cx:=((-c2)/b2)
else
first:=(sqr(b2)-(4*a2*(c2)));
if first<0 then
showmessage('Уравнение не имеет решения!');
if (first>=0)and(a.Text<>'0')and(a.Text<>'')then
x1:=(((-b2)+sqrt(first))/(2*a2));
if (first>0)and(a.Text<>'0')and(a.Text<>'')then
x2:=(((-b2)-sqrt(first))/(2*a2));
zn1.text:=floattostr(x1);
zn2.text:=floattostr(x2);
zn1.visible:=true;
if (first>0)then
zn2.Visible:=true;
if first=0 then zn2.Text:='';
if (a.text='0')or(a.Text='')then
zn1.Text:=floattostr(cx);
zn2.Text:='';
zn2.Visible:=false;
zn1.Visible:=true;
if first<0 then
zn1.Text:='';
if first<0 then
zn1.Visible:=false;
end;

procedure TForm1.aKeyPress(Sender: TObject; var Key: Char);

var //цифровая маска
vrPos, vrLength, vrSelStart: byte;

const
I: byte = 1;
//I+1 = количество знаков после запятой (в данном случае - 2 знака)

begin
with Sender as TEdit do
begin
vrLength := Length(Text); //определяем длину текста
vrPos := Pos(',', Text); //проверяем наличие запятой
vrSelStart := SelStart; //определяем положение курсора
end;

case Key of
'0'..'9':

begin
//проверяем положение курсора и количество знаков после запятой
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0; //"погасить" клавишу
end;

',', '.':
begin
//если запятая уже есть или запятую пытаются поставить перед
//числом или никаких цифр в поле ввода еще нет
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0 //"погасить" клавишу
else
Key := #44; //всегда заменять точку на запятую
end;
#8: ; //позволить удаление знаков клавишей 'Back Space'
else
Key := #0; //"погасить" все остальные клавиши
end;
end;
procedure TForm1.bKeyPress(Sender: TObject; var Key: Char);
var //цифровая маска
vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1;
//I+1 = количество знаков после запятой (в данном случае - 2 знака)
begin

with Sender as TEdit do
begin
vrLength := Length(Text); //определяем длину текста
vrPos := Pos(',', Text); //проверяем наличие запятой
vrSelStart := SelStart; //определяем положение курсора
end;

case Key of

'0'..'9':
begin
//проверяем положение курсора и количество знаков после запятой
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0; //"погасить" клавишу
end;
',', '.':
begin
//если запятая уже есть или запятую пытаются поставить перед
//числом или никаких цифр в поле ввода еще нет
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0 //"погасить" клавишу
else
Key := #44; //всегда заменять точку на запятую
end;
#8: ; //позволить удаление знаков клавишей 'Back Space'
else
Key := #0; //"погасить" все остальные клавиши
end;
end;

procedure TForm1.cKeyPress(Sender: TObject; var Key: Char);
var //цифровая маска
vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1;
//I+1 = количество знаков после запятой (в данном случае - 2 знака)
begin

with Sender as TEdit do
begin
vrLength := Length(Text); //определяем длину текста
vrPos := Pos(',', Text); //проверяем наличие запятой
vrSelStart := SelStart; //определяем положение курсора
end;

case Key of

'0'..'9':
begin
//проверяем положение курсора и количество знаков после запятой
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0; //"погасить" клавишу
end;
',', '.':

begin
//если запятая уже есть или запятую пытаются поставить перед
//числом или никаких цифр в поле ввода еще нет
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0 //"погасить" клавишу
else
Key := #44; //всегда заменять точку на запятую
end;
#8: ; //позволить удаление знаков клавишей 'Back Space'
else
Key := #0; //"погасить" все остальные клавиши
end;
end;
end.

Окно формы прилагаю:
[IMG][/IMG]

[Don Karleone]

в KeyPress для первого Edit'а пропиши if Key = #13 the Edit2.SetFocus;
аналогично и для второго.

[SPQR10000]

хмм,попробовал поставить-не сработало(

[_-Re@l-_]

Суть такая(простенький пример):

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    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;
  I:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      I:=0;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      If Key = VK_RETURN Then Edit2.SetFocus;
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      If Key = VK_RETURN Then
      Begin
            Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
      End;
end;

end.

[SPQR10000]

Всем спасибо,дорогие форумчане!
Вы мне помогли,все работает(разобрался багодаря вам!))
Да,еще вопросик:
я заметил,что работает вариант

If Key = VK_RETURN Then Edit2.SetFocus;

а мой вариант

if key= #13 then
b.SetFocus;

не работант!
Я знаю,что запись #13 еквивалентна VK_RETURN,но работать отказываеться напрочь.
Может тут какойто сокральный смысл?