procedure TForm6.FormCreate(Sender: TObject);
var i: integer;
begin

  Label1:= TLabel.Create(Panel2);
  Label1.Parent:= Panel2; // Schrift Auf Panel Anzeigen
  Label1.Top:= (Panel2.Height - Label1.Height) div 2; // Posiziunieren auf dem Panel2
  for i:=0 to ComponentCount-1 do // XP anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;
end;
{Text auf den Labels ausgeben}
procedure TForm6.Edit1Change(Sender: TObject);
begin
  Label1.Caption:='' + Edit1.Text; // Label1
  Label2.Caption:='' + Edit1.Text; //Label2
end;
{Text bearbeiten}
procedure TForm6.Button1Click(Sender: TObject);
begin
  Label1.Visible:= False;
  Edit1.Visible:= True;
  Edit1.SetFocus;
end;
{Laufschrift einschalten}
procedure TForm6.Button2Click(Sender: TObject);
begin
  Label1.Visible:= True;
end;
{laufschrift ausschalten}
procedure TForm6.Button3Click(Sender: TObject);
begin
  Label1.Visible:= False;
end;
{ Laufschrift Timer}
procedure TForm6.Timer1Timer(Sender: TObject);
begin
  if
    Label1.Left = -Label1.Width then
    Label1.Left:= Panel2.Width
  else
    Label1.Left:= Label1.Left -1;
end;