[NumLock]

на Delphi 7 все okay:

Код:

...
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
...
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Edit1.Text:='procedure TForm1.SpeedButton1Click(Sender: TObject);';
  Edit1.SelStart:=Length(Edit1.Text);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text:='procedure TForm1.SpeedButton1Click(Sender: TObject);';
  SendMessage(Edit1.Handle, EM_SETSEL, Length(Edit1.Text), Length(Edit1.Text));
end;