Jo geile Sache...
falls es jemanden interessiert, hier das Ergebnis:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key in [#33..#122]) and (edit1.Focused = false) then
with form1.Edit1 do
begin
Text := form1.Edit1.Text + key;
SetFocus;
SelStart := form1.Edit1.SelLength;
end;
end;