Create Crosshair to Mouse

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  TempBMP : TBitmap;

  begin
  TempBMP := TBitmap.Create;
  with TempBMP do
  begin
    Height := Image1.Height;
    Width := Image1.Width;
    Canvas.MoveTo (X,0);
    Canvas.LineTo (X,Image1.Height);
    Canvas.MoveTo (0,Y);
    Canvas.LineTo (Image1.Width,Y);
    Image1.Picture.Assign (TempBMP);
    Free;
  end;
end;