delphi canvas заливка

Ответ от ?[гуру]
procedure FillAll(Canvas: TCanvas; Color: TColor);
var
 OldBrush : TBrush;
begin
 OldBrush := TBrush.Create;
 try
  with Canvas do
  begin
   OldBrush.Assign(Brush);
   Brush.Color := Color;
   Brush.Style := bsSolid;
   FillRect(ClipRect);
   Brush.Assign(OldBrush);
  end;
 finally
  OldBrush.Free;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 FillAll(Image1.Canvas, clRed);
end;