폼을 투명하게 하고 라인을 시간에 따라 이동시키면 라인이 이동하기 시작한때로부터 계속 잔상이 남습니다. 잔상을 지우려면 어떻게 해야 하는지요?

폼을 투명하게 하지 않을때는 잔상이 남지 않는데 투명하게 할때 이런 문제가 발생합니다. 잔상을 없애는 방법을 애타게 찾고 있습니다. 도와주세요..꾸벅!~

폼을 투명하게 설정:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;

라인을 0.1초마다  이동
procedure TForm1.Timer1.Timer(Sender: TObject);
begin
Line.Left:=Line+10;
lb.Caption:=IntToStr(Line.Left);
end;