[ART]

Ну бери каждый пиксель и преобразуй по алгоритму.

Код:

procedure MyProc(C: TCanvas; P1, P2: TPoint);
var
 i, j: integer;
begin
 for i := P1.y to P2.y do
  for j := P1.x to P2.x do
   C.Pixels[j, i] := Algoritm(C.Pixels[j, i]);
end;