Тиснение изображения.

[Neverworld]

Задача состоит в том, чтобы реализовать эффект тиснения на Delphi
Суть эффекта, насколько я понимаю, сосоит в том, чобы а) узнать, является ли пиксель фоновым (т.е. находится ли на границе перехода от одного цвета к другому) и б) фоновые пиксели "перекрасить" в серый цвет.
Есть ли умные люди, которые понимают, как это сделать?( Сама уже замучилась просто.
Вот код программы, которая впринципе ничего не умеет делать, только загружать и сохранять картинку

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Jpeg, StdCtrls, ExtCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button3: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FileName: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if(OpenPictureDialog1.Execute) then
  Image1.Picture.LoadFromFile(
    OpenPictureDialog1.FileName);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then
  Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.