... jaj ty tam menis aj x, neni furt 613, tak potom

//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;
begin
c:=TCanvas.create;
c.handle:=GetWindowDC(GetDesktopWindow);
if (ColorToHTMLHex(getpixel(c.handle, 613 , 442 )))='FF0000' then n:= 1 ;
if (ColorToHTMLHex(getpixel(c.handle, 613 , 441 )))='FF0000' then n:= 2 ;
if (ColorToHTMLHex(getpixel(c.handle, 612 , 440 )))='FF0000' then n:= 3 ;
if (ColorToHTMLHex(getpixel(c.handle, 612 , 439 )))='FF0000' then n:= 4 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 438 )))='FF0000' then n:= 5 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 437 )))='FF0000' then n:= 6 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 436 )))='FF0000' then n:= 7 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 435 )))='FF0000' then n:= 8 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 434 )))='FF0000' then n:= 9 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 433 )))='FF0000' then n:= 10 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 432 )))='FF0000' then n:= 11 ;
if (ColorToHTMLHex(getpixel(c.handle, 611 , 431 )))='FF0000' then n:= 12 ;
if (ColorToHTMLHex(getpixel(c.handle, 612 , 430 )))='FF0000' then n:= 13 ;
if (ColorToHTMLHex(getpixel(c.handle, 612 , 429 )))='FF0000' then n:= 14 ;
if (ColorToHTMLHex(getpixel(c.handle, 613 , 428 )))='FF0000' then n:= 15 ;
if (ColorToHTMLHex(getpixel(c.handle, 613 , 427 )))='FF0000' then n:= 16 ;
if (ColorToHTMLHex(getpixel(c.handle, 614 , 426 )))='FF0000' then n:= 17 ;
if (ColorToHTMLHex(getpixel(c.handle, 615 , 425 )))='FF0000' then n:= 18 ;
if (ColorToHTMLHex(getpixel(c.handle, 616 , 424 )))='FF0000' then n:= 19 ;
if (ColorToHTMLHex(getpixel(c.handle, 617 , 423 )))='FF0000' then n:= 20 ;
c.free;
end;