Efecto Marquesina

[JuanOrtega]

Hola estaba leyendo un post de este foro sobre efectos marquesinas en delphi y despues de lo que lei quedo este codigo :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'This is right scrolling text' + sLineBreak + 'This is right scrolling text' +
    sLineBreak + 'This is right scrolling text' + sLineBreak + 'This is right scrolling text' + sLineBreak + 
    'This is right scrolling text' + sLineBreak + 'This is right scrolling text' +
    sLineBreak + 'This is right scrolling text' + sLineBreak + 'This is right scrolling text' + sLineBreak;
  Timer2.Enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 10;
  if Label1.Top <= 0 - Label1.Top then
  begin
    Label1.Top := Panel1.Height;
  end;
end;

El efecto marquesina funciona moviendo el label desde abajo hasta arriba basandose en los limites del panel , el problema es que no logro solucionar un detalle importante , el tema es que cuando llega al final del panel desde arriba en vez de que suban todas las lineas del label lo que hace es subir solo una linea del label desde arriba y luego desparece para volver a comenzar desde abajo arruinando el efecto.

¿ Alguien me puede ayudar con este detalle ?