[[escafandra]]

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 10;
  if Label1.Top + Label1.Height < 0 then
    Label1.Top := Panel1.Height;
end;

Saludos.