Messwerte mit Farbe darstellen

[Pinki]

Hallo ich bekomme Fehlermeldung:Ungültige Gleitkommaoperation!!
Hier erstmal der Link zum Thread RGB Funktion

Ich habe die übernommen aber bei blend wert definition mekert er
Hier der Code:

Delphi-Quellcode:

 blend := Round(AnzeigeWinkel/DrehWinkel); ////<<<<---- genau hier ist der Fehler/Bei z.B.blend:=0.5 zeigt er richtig die farbe
        LedColor := ColorsBetween([clGreen, clYellow, clRed],blend);
   //// und dann kommt die LED Grafik
with RecT do
        begin
        OldPen := SelectObject(DC,CreatePen(ps_Solid,1,0));
        OldBrush := SelectObject(DC,CreateSolidBrush(LedColor));
        while n > 0 do
        begin
      Dec(n);
      x := (ZentrumX + Trunc(Cos(LEDWinkel) * r1));
      y := (ZentrumY - Trunc(Sin(LEDWinkel) * r2));
      Ellipse(DC,x - LED_RADIUS, y - LED_RADIUS, x + LED_RADIUS, y + LED_RADIUS);
      LEDWinkel:=LEDWinkel-(Pi/8);
      end;

Woran kann es liegen Round???? oder? ergibt doch Integer Wert??

Grüss Pinki