Cambiar de edit automaticamente

[CRIS]

Hola soy nuevo en el foro, bueno eso ya lo abreis visto jejeje, a ver tengo un problemilla, me explico:

tengo un edit1, edi2, edit3 y edit4 lo que necesito es que al poner un numero en el edit2 si detecta que es inferior al que hay en el edit1 que pase automaticamente al edit3.setfocus y si es superior pues que pase al sigiente control osea el edit4.
Espero haberme explicado con claridad.

Salu2.CRIS.

[marcoszorrilla]

Prueba con esta idea:

procedure TForm1.Edit2Exit(Sender: TObject);
var
nValor,ErrCode:Integer;
begin
val(edit2.text,nValor,Errcode);
   if errCode <> 0 then
    MessageDlg('Error en la position: ' + IntToStr(ErrCode), mtWarning, [mbOk], 0)
  else
    if nValor > StrToInt(edit1.text) then
    edit3.SetFocus
    else
    edit4.SetFocus;

end;

Un Saludo.

[CRIS]

Ole ole ole ole muchas gracias marcoszorrilla por contestarme tan rapido voy a probarlo ahorita mismo y te cuento. Salu2.CRIS.

[CRIS]

Hola marcoszorrilla, un millon de gracias, le he aplicado la formula a mi aplicacion y me ha ido de maravilla, gracias de nuevo y un saludo.CRIS.