1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure KeyPress1(Sender: TObject; var Key: Char);
begin
  case ord(key) of
    13: {"Enter" bsteht aus #13 und #10 - sollte also auch bei 10 funktionieren}
      begin
        form1.FocusControl(TE2);
        {form1 ist das Formular mit den Editfeldern, TE2 ist das Editfeld, das den Focus erhält}
      end;
  end;
end;					

1:

TE.OnKeyPressed := KeyPress1;