TBitmap bleibt leer

[Hazardos]

Hallo, ich habe folgenden Quelltext:

Delphi-Quellcode:

var bmp : TBitmap;
    x,y : integer;
    p : pbytearray;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('C:\test.bmp');
bmp.width := 100;
bmp.height := 100;

for y := 0 to bmp.Height - 1
  do
    begin
      p := bmp.ScanLine[y];
      for x := 0 to bmp.Width*3 - 1
        do p[x] := Random (255);
    end;
Image1.Picture.Assign(bmp);
end;

das Problem ist, dass das Resultat ausbleibt wenn ich die Zeile
<bmp.LoadFromFile('C:\test.bmp');>
entferne. Ich könnte jetzt sicherlich mogeln um das Problem zu umgehen, aber dadurch werde ich ja nicht schlauer... Wär super wenn einer von euch mir weiterhelfen könnte (Ursache, Lösung)...
MfG Jörn