Probleme mit Create eigener klasse -> Zugriffsverletzung

[Super_Chemiker]

Delphi-Quellcode:

procedure TStein.Paint;
var u,v : integer;
begin
  canvas.Font.Size := 14;
  canvas.Font.Name := 'Comic Sans MS';
  x := (Width - Canvas.TextWidth(Caption)) div 2;
  y := (Height- Canvas.TextHeight(Caption)) div 2;
  Canvas.Rectangle (3, 3, Width-3, Height-3);
  if Pressed then
  begin
    for u := 4 to width-5 do
      for v := 4 to height-5 do
        canvas.Pixels[u,v] := clWhite;
  end
  else
  begin
    for u := 4 to width-5 do
      for v := 4 to height-5 do
        canvas.Pixels[u,v] := clyellow;
  end;
  canvas.TextOut(x,y, Caption);
end;

wie mache ich es jetzt, dass die Farbe auch hinter die Schrift geht?
momentan hab ich das recteck, mit gelb gefüllt, dann innen die Schrift auf einem clbtnFace rechteck!