Oder so. Hier wird einfach alles danach markiert. Folgt ein weiterer Tastendruck, wird die 12 überschrieben.
Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
with Sender as TSpinEdit do
begin
if Text = '' then Text := '12';
SelStart := Length(Text);
SelectAll;
end;
end;