Wo ist die Linie hin?

[Privateer3000]

Hallo folks,
mittels folgender procedure soll eine Linie gezeichnet werden:

Delphi-Quellcode:

procedure TForm1.setmal1Click(Sender: TObject);
begin
rak:=1;
setrak.Caption:=IntToStr(rak);
with Image8.Picture.Bitmap.Canvas do
begin
Pen.Style := psSolid;
Pen.Color := clblack;
MoveTo(0, 0);
LineTo(image8.Width, image8.Height);
end;
end;

Innerhalb des Image8 wird aber nix gezeichnet.
Ob relevant oder nicht, Image8 befindet sich über einem (größerem) Image
das nun wiederum auf einem Panel.
Wieso wird keine Linie gezeichnet?

Gruselige Grüße
Privteer