Problem beom Bewegen der Image. man sieht Streifen

[thomas2009]

Hallo
wenn ich eine Image mit der Maus verschiebe, dann glänzt die Image

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Image1.Left:=Mouse.CursorPos.X-left - x;
Image1.Top:= Mouse.CursorPos.Y-top - y;

Gibt es eine Lösung für mein Problem ?
Oder ist es halt so : (

_