StringGrid: Schriftgröße verkleinern geht nicht

[Helmi]

Hallo,

ich möchte im OnDrawCell einer StringGrid die Schriftgröße der Zellen, manchmal auch einer bestimmten Zelle ändern.
Wenn ich die Schrift größer stelle, dann funktionierts, kleiner aber nicht.

Hier mal der Code:

Delphi-Quellcode:

procedure TForm2.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Diff_Left : Integer;
  Diff_Top  : Integer;
  S_Text    : String;

begin
 with (Sender as TStringGrid), Canvas do
  begin
    //Text auslesen
    S_Text      := Cells[ACol, ARow];

    //linke, obere Zelle
    If (ACol = 0) and (ARow = 0) then
      begin
        Brush.Color := clWhite;
      end
    else
      //erste Zeile und Spalte neu zeichnen
      If (ACol = 0) or (ARow = 0) then
        begin
          //Hintergrundfarbe
          Brush.Color   := clWhite;

          //Schrift einstellen
          Font.Color    := clBlack;
          Font.Name     := 'MS Sans Serif';
        end
      else
        begin
          //Hintergrundfarbe dunkelblau
          Brush.Color := clNavy;

          //Schrift einstellen
          Font.Color    := clWhite;
          Font.Name     := 'Fixedsys';
        end;

    //Standard-Schrift-Einstellungen
    Font.Size   := 11;
    Font.Style  := [];

    //
    If (Pos('$', S_Text) = 1) and (Length(S_Text) > 1) then
      begin
        //Hintergrundfarbe rot
        Brush.Color := clRed;

        //Schriftgröße ändern
        Font.Size    := 1;
      end;
end;

Font.Size := 1; funktioniert nicht.

Font.Size := 11; und größer funktioniert.

Wieso kann ich keine kleineren Schriftgrößen einstellen?