resp. na to ani netreba mat cas, s cyklom a jednym volanim GetWindowDC to bude vypadat napr. takto:

//Konverze barvy do HEX kodu
function ColorToHTMLHex(Color: TColor): String;
begin
Result := IntToHex(ColorToRGB(Color), 6);
Result := Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);
end;

//timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
c:TCanvas;
n:integer;
y:integer;
begin
c:=TCanvas.create;
c.handle:=GetWindowDC(GetDesktopWindow);
for y:=442 downto 423 do
  if (ColorToHTMLHex(getpixel(c.handle, 613, y)))='FF0000' then n:= 443-y;
c.free;
end;