Värivalitsin?

Miksi sellainen pitäisi tehdä itse kun niitä on valmiina vaikka kuinka?
http://www.google.fi/search?hl=fi&source=hp&q=color picker&meta=&rlz=1R2GGLL_enFI346

sjotenkin tähän tapaan. ei varmaan paras mutta toimii.

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.top:=0;
Form1.left:=0;
Form1.width:=Screen.width;
Form1.height:=Screen.height;

Form1.image1.top:=0;
Form1.image1.left:=0;
Form1.image1.width:=Form1.width;
Form1.image1.height:=Form1.height;
Form1.Image1.Canvas.CopyRect(rect(0,0,Form1.width, Form1.height),
Form1.canvas,
rect(0,0,Form1.width, Form1.height));
Form1.show;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
c: TColor;
begin
c:=GetPixel(image1.canvas.handle, X, Y);
messageDlg(IntToStr(c), mtInformation, [mbOk], 0);
Close;
end;

Sitten loput saat miettiä miten kuljetat värin kutsuvaan ohjelmaosioon.
Sen vaoi vaikka viedä public muuttujaan ja lukea sitten sieltä tai miten nyt parhaaksi näet.
Tämä on Delphi vitosta mutta kai se uudemmillakin pelittää.

Varmaan on parempiakin tapoja mutta niistä kertokoot viisaammat.

Siis mikähän tuossa nyt on pointti "mistä tahansa ruudulta ja jos klikkaa värin valitsemisen aikana muualta kuin kyseisen ohjelman ikkunasta", eikö nuo tarkoita samaa asiaa?
"Ja klikkaamalla se lopettaisi", siis lopettaa vai valitsee värin, täh?

Värin valitseminen nyt onnistuu vaikka GDI, DirextX, OpenGL, mutta kysymystä en ymmärrä..