It seems that there is a problem here, indeed. This code:
with image1.{Picture.Bitmap.}Canvas do
begin
Brush.Style := bsClear;
Font.Color := clBlack;
TextOut(0,0, 'abc');
end;
seems to have different result than this one:
with image1.Picture.Bitmap.Canvas do
begin
Brush.Style := bsClear;
Font.Color := clBlack;
TextOut(0,0, 'abc');
end;