procedure TForm1.sImage7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
x1,y1 : Integer;
begin
if s = False then
begin
if (x < 39) and (y > -1) and (y < 50) and (x > -1) then
begin
sImage7.Picture := sImage6.Picture;
sImage7.Canvas.Pen.Color := clRed;
sImage7.Canvas.Rectangle(x,sImage3.Height, x+1, 0);
sImage7.Canvas.Rectangle(sImage3.Width,y, 0, y+1);
end;
end;
end;