Como crear imagenes (pixeles)

[ecfisa]

Hola gattaca y feliz regreso

Que me permitia poner 1 puntico negro en una imagén, y en Delphi XE2 no encuentro la manera de manejar dicha función!

Espero que este ejemplo sirva para orientarte un poco:

Código Delphi [-]
...
uses  jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPicture;
  i: Integer;
begin
  P:= TPicture.Create;
  try
    P.LoadFromFile('C:\Users\Usuario\Pictures\Blank.jpg');
    Image1.Picture.Bitmap.Height:= P.Height;
    Image1.Picture.Bitmap.Width:= P.Width;
    Image1.Canvas.Draw(0,0,P.Graphic);
    Image1.Canvas.Pixels[2,2]:= clBlack;  // pixel negro
    for i:= 5 to 50 do
      if i < 25 then
        Image1.Canvas.Pixels[i, 10]:= clRed  // pixels rojos
      else
        Image1.Canvas.Pixels[i, 10]:= clLime;  // pixels verdes
  finally
    P.Free;
  end;
end;

Esta echo en Delphi 7 pero supongo que debería funcionar en XE2...

Saludos.