problem mit GetDC bzw. AColor

[rhodan]

hallo,

kleines problem.
wenn ich den befehl GetPixel nur einmal ausführe hier, wird die farbe auf dem screen richtig erkannt, asuche ich allerdings auch noch nach der ZWEITEN koordinate, wird selbst die erste nicht richtig erkannt (sprich das panel färbt sich nicht blau).

muss ich jedes mal bevor ich ne neue koordinate absuche den DC neu holen? oder liegt das problem bei AColor und ich muss die erst releasen bevor ich die zweite koordinate suche oO ?

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
dc:hdc;
AColor : Array[1..4] of Byte;
hwnd:hwnd;
...

begin
...

   DC := GetDC(hwnd);

  //blau

  DWord(AColor) := GetPixel(dc,410,412);

if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60)  and (AColor[3] > 240) then
  begin
  panel1.color :=clblue;
  end;


 
  DWord(AColor) := GetPixel(dc,460,412);
  if (AColor[1] > 0) and (AColor[1] < 15)and (AColor[2] > 35) and (AColor[2] < 60) and (AColor[3] > 240) then
  begin
  panel2.color :=clblue;
  end;

danke