Zelle wird nicht gefärbt

[SaFu]

Guten abend

Hab mal folgendes Problem

Ich färbe meine Zelle mit der eingabe von Strings und zwar so

Delphi-Quellcode:

  if LowerCase(GetLowerValue(ACol, ARow)) = 'np' then
   begin
    StC.Brush.Color  := sNPColor; //Zellenfarbe unterer Teil
    StC.Font.Color := sNPFontColor; //Schriftfarbe
    StC.Font.Style := StC.Font.Style + [fsBold]; //Text fett
   end;

ist das Kürzel np eingegeben Färbt sich die Zelle in der eingestellten Farbe.
Schreibe ich den String in eine Variable funzt das ganze nicht mehr warum??

Delphi-Quellcode:

 if LowerCase(Cells[ACol, ARow]) = sKuerzelLeer1 then // hier die Variable
  begin
   StC.Brush.Color := sColorLeer1; //Zellenfarbe
   StC.Font.Color := sLeer1FontColor; //Schriftfarbe
   StC.Font.Style := StC.Font.Style + [fsBold]; //Text fett
  end;