Pen.Color wird ignoriert

[palmakunkel]

Liebe Delphi-Gemeinde, ich brauche Hilfe:
bei folgendem Code wird die Pen.Color ignoriert. Es wird immer weiß gezeichnet, ganz gleich was ich setze. Wenn ich in Img direkt ein Bitmap lade klappt es.

type
TForm1 = class(TForm)
...
Img: TImage;
...

procedure ConvertToBMP(const FileName: string; var Img: TImage);
var PNG: TPNGObject;
ts: string;
begin
if UpperCase(TPath.GetExtension(FileName))='.PNG' then
begin
PNG := TPNGObject.Create;
try
PNG.LoadFromFile(FileName);
Img.Picture.Bitmap.Assign(PNG);
finally
PNG.Free;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Img.Canvas.Brush.Color:=clWhite;
Img.Canvas.FloodFill(1,1,clBlack,fsSurface);

ConvertToBMP('Aloahe2.png', Img);

Img.Canvas.Pen.Color:=clBlack;
Img.Canvas.Pen.Mode:=pmCopy;
Img.Canvas.Pen.Style:=psSolid;
end;

Wäre sehr dankbar für einen Tipp.