// LeftStr(AStr, AStart) 取 AStr 字串的左邊 AStart 長度
  // SelStart 游標的位置
  Edit1.Text := LeftStr(Edit1.Text, Edit1.SelStart);
  // 跳到 Edit2 這個欄位，如果想要跳到未知的下一個 DBEdit 欄位的話
  // 還要再多做一些動作，這裡我就省略了
  Edit2.SetFocus;
  // 不加這個 Abort 的話，你剛按的字就會加進去
  // 跑這個 Abort 讓它不要再繼續處理事件了
  Abort;

改寫在DBEdit元件的OnKeyDown事件中﹕
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F4 then
    begin
      DBEdit1.Text := LeftStr(DBEdit1.Text, DBEdit1.SelStart);
      DBEdit2.SetFosuc;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================