[lmikle]

Если картинка небольшая, то надо получить Bitmap из Image1, в этом битмапе есть св-во Canvas.Pixels, которое можно менать, указывая соотв. цвет.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  W: Word;
begin
    for W := 10 to 200 do
      Canvas.Pixels[W, 10] := clRed;
end;

Если картика большая, то надо делать через ScanLine, так быстрее получается. Но там сложнее, но примеров в интернете есть.