Código Delphi [-]if Shift = [ssLeft] then Image1.Canvas.Pixels[x, y] := clRed;
if Shift = [ssLeft] then Image1.Canvas.Pixels[x, y] := clRed;