Получение 2х цветов и их сравнение

[Zeraim]

Здрасть, решил сюда написать ибо как я понял в радел дельфи писать рановато. Мне нужно получить 2 цвета вне формы, а потом их сравнить, в форме ето у меня получилось. Мне сказали учить вин апи. Если несложно тыкните носом в книжку или дайте ссылку на описание для балбесов как это использовать, поиск чтото неособо помог.

[Zeraim]

Хелп нашол по Вин Апи, оказался у меня под носом, точнее Блог програмистов помог, но возникли вопросы:

 function GetPixel(DC: HDC; X, Y: Integer): Longint;

     Считывает цвет RGB в указанной точке.

     Паpаметpы:
     DC: Идентификатоp контекста устpойства.
     X, Y: Пpовеpяемая точка.

     Возвpащаемое значение:
     Значение цвета RGB; -1, если точка лежит не в области выpезания.

DC получаем из function GetWindowDC(Wnd: HWnd): HDC; так?
Если да, то моглибы написать пример, или еще чтонибудь в этом роде, который показалбы как это использовать. Мб тут все очевидно но мне чтото неочень =\\

[B_N]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if (Button = mbLeft) then SetCapture(Panel1.Handle);
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if (Button = mbLeft) then ReleaseCapture();
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
    hScreenDC   : HDC;
    pt          : TPoint;
    clr         : COLORREF;
    ColorString : string;
begin
    hScreenDC := GetDC( 0 );

    pt.X := X; pt.Y := Y;
    windows.ClientToScreen(Panel1.Handle, pt);
    clr := GetPixel(hScreenDC, pt.X, pt.Y);

    if(clr = clWhite) then
        ColorString := 'White'
    else
        ColorString := format('R :%3.3d, G :%3.3d, B :%3.3d',
                        [GetRValue(clr), GetGValue(clr), GetBValue(clr)]);

    Panel1.Color := clr;
    Form1.Caption := format('Client: %d : %d, Screen: %d : %d, Color: %s',
                            [X, Y, pt.X, pt.Y, ColorString]);

    ReleaseDC( 0, hScreenDC);
end;

end.

[Zeraim]

Пара вопросов:
if (Button = mbLeft) then SetCapture(Panel1.Handle); Непонял зачем это =\\
windows.ClientToScreen(Panel1.Handl e, pt); Выдает нам координаты мышки в виндовс и относительно формы?