Dynamisches Editfeld als Komponente

[DelphiManiac]

Ich habe es zurzeit folgendermaßen geregelt:

Delphi-Quellcode:

// Hier fange ich das loslassen der Linken Maustaste und Pfeiltaste 'hoch' ab
procedure TForm12.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = (WM_LBUTTONUP)) or (Msg.message = WM_KEYUP )  then
  begin
    Timer1.Enabled:=false; // Timer wird gestoptt
    RxSpinEdit1.Increment:=Power(10,-(RxSpinEdit1.Decimal)); // Erhöhungsschritt wird zurückgsetzt auf kleinste (letzte Stelle)
    end;
end;
// Zeitbasis wird beim Hoch/Runter klicken der Spinbuttons aktiviert
procedure TForm12.RxSpinEdit1TopClick(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;
//
procedure TForm12.Timer1Timer(Sender: TObject);
begin
  RxSpinEdit1.Increment:=  RxSpinEdit1.Increment+(Power(10,-(RxSpinEdit1.Decimal))); // Erhöhungsschritt wird erhöht
  // Beispiel: Decimal steht auf 2 (also 2 Nachkommastellen), das heißt es sieht folgendermaßen aus:
  // '0.00'  gut nun wird der Incrementschritt um 0.01 erhöht
end;

Wie kann ich das nun in meiner 'neuen' Komponente unterbringen?