Problem mit Canvas

Hallo allerseits.
Ich habe ein kleines Programm geschrieben das ein simples Haus malt. Nun aber möchte ich mit Floodfill das Dach Grün ausfüllen aber das funktioniert iwie nicht.
Hier ist mal mein code

procedure Tfrm_zeichnen.btn_zeichneClick(Sender: TObject);
var OldColor : TColor;
begin

  canvas.MoveTo(50,150);
  canvas.LineTo(200,50);
  canvas.LineTo(350,150);

  canvas.Rectangle(50,150,350,350);
  canvas.Rectangle(260,170,310,230);
  canvas.Rectangle(170,240,240,350);

  canvas.Brush.Color := clgreen;
  canvas.FloodFill(100,100,clblack,fsSurface);

end;

end.

Kann mir einer sagen woran das liegt ich finde den Fehler nicht