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

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
Sonderzeichen:Boolean;
begin
if Sonderzeichen=true then begin
 if key = 'ä' then
 begin
   Memo1.Text:=Memo1.Text+'ä';
   key:=#0;
   Memo1.SelStart:=Length(Memo1.Text);
   end ;
end.					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key=VK_left then Edit1.SetFocus
else if key=VK_right then Edit3.SetFocus
else if key=vk_return then Button1Click(sender);
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: char);
begin
If key=#37 then Edit1.SetFocus
else if key=#39 then Edit3.SetFocus
else if key=#13 then begin Buuton1Click(sender); key:=#0; end ;
end;					

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

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
  VK_left: Edit1.SetFocus;
  VK_right: Edit3.SetFocus;
  vk_return: begin
              key:=0;
              Button1Click(sender);
             end
end;					

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

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_LEFT: Edit1.SetFocus;
    VK_RIGHT: Edit3.SetFocus;
    VK_RETURN: Button1Click(sender);
  end;
  if Key in [VK_LEFT,VK_RIGHT,VK_RETURN] then
    Key := 0;
end;