設定游標的位置

 edt1.SelStart := Length(edt1.Text);
 edt1.SelLength := length(edt1.Text);

虛擬鍵盤的點選事件

//1、操作的事件

procedure TForm1.JPSR(s:String);
var
  i: integer;
  p: string;
begin
  if s='Del' then
  begin
    i := Length(edt1.Text);
    i := i-1;
    edt1.Text := copy(edt1.Text,1,i);
  end
  else
  begin
    edt1.Text := edt1.Text + s;
  end;
  edt1.SelStart := Length(edt1.Text);
  edt1.SelLength := length(edt1.Text);
end;

2、//模擬刪除最後一個位元組

procedure TForm1.lbl3Click(Sender: TObject);
var
  s: string;
begin
  s := 'Del';
  JPSR(s);
end;

3、//輸入位元組位元組

procedure TForm1.lbl1Click(Sender: TObject);
var
  s: string;
begin
  s := '1';
  JPSR(s);
end;