scrolllabel -> kann einer eine komponente daraus machen?

[100nF]

hallo zusammen,

ich habe einen code für einen lauftext geschrieben, und es wäre schön wenn man daraus eine komponente machen könnte. ich kenn mich halt nicht aus mit komponenten selber machen, und darum wollte ich fragen ob das einer von euch erledigen könnte.
eigentlich sollte es genau ein Tlabel sein, nur mit der zusatzfunktion active (boolean). falls true, läuft die schrift, bei false steht sie. dann sollte man noch die geschwindigkeit einstellen können (beim timer der intervall) und die variablen vorne+hinten sollte man ändern können.

hier mein code:

Delphi-Quellcode:

var 
  scrolllabel2: tlabel;
  vorne, hinten: integer;

////////////////////////////////////////

procedure TForm1.FormCreate(Sender: TObject);
begin
  vorne := 0;
  hinten := form1.ClientWidth;
  label1.Left := vorne;
  scrolllabel2 := tlabel.Create(self);
  scrolllabel2.Parent := label1.Parent;
  scrolllabel2.Align := alcustom;
  label1.Align := alcustom;
  scrolllabel2.Left := hinten;
end;

///////////////////////////////////////////////

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  scrolllabel2.caption := label1.caption;
  scrolllabel2.Top := label1.Top;
  Label1.Left := Label1.Left -1;
  scrolllabel2.Left := scrolllabel2.Left -1;
  if (scrolllabel2.Left < label1.left+label1.Width+20) and (label1.Left < vorne) then scrolllabel2.Left := label1.left+label1.Width+21 ;
  if (label1.Left < scrolllabel2.left+scrolllabel2.Width+20) and (scrolllabel2.Left < vorne) then label1.Left := scrolllabel2.left+scrolllabel2.Width+21 ;
  if label1.Left = vorne then scrolllabel2.Left := hinten;
  if scrolllabel2.Left = vorne then label1.Left := hinten;
end;

//////////////////////////////////////////////////////

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
scrolllabel2.Free;   // Ist das wichtig??
end;

falls jemand eine erweiterung/änderung hätte für mein code, nur her damit

hat vielleicht jemand den code von einem TLabel? dann könnte ich selber mal ein bisschen probieren...

danke schon im voraus

MFG
urbanbruhin