Gennemsigtig baggrund med Canvas.TextOut

Image1.Canvas.brush := bsclear;
inden du skriver tekst

Så skriver den:
[Error] Regnermaskinep.pas(1151): Incompatible types: 'TBrush' and 'TBrushStyle'

ok så betyder det nok at der skal stå
Image1.Canvas.brush.style := bsclear;
Image1.Canvas.TextOut(10,10,'A');

Så virker Image1.Canvas.FillRect(ClientRect); ikke længere....

Hvordan sætter jeg den til det den var før igen ??

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.brush.Color := clred;
Image1.Canvas.brush.style := bsSolid;
Image1.Canvas.FillRect(ClientRect);
Image1.Canvas.brush.style := bsclear;
Image1.Canvas.TextOut(10,10,'A');
end;

du bliver nødt til at skrive tekst til sidst, ellers skal du klippe udenom det

Tak for hjælpen...