Bitmap erstellen mit TBitmap.Create und speichern

[Alex_ITA01]

Hallo zusammen,
mit folgendem Source erstelle ich ein Bitmap und speicher dieses ab.

Delphi-Quellcode:

Bmp        := TBitmap.Create;
Bmp.Width  := 1024;
Bmp.Height := 768;
Bmp.Pixelformat := pf32bit;

for i := 0 to 5 do
begin
  for j := 0 to 5 do
  begin
    Bmp.Canvas.Pixels[i,j] := 0;
  end;
end;

Bmp.SaveToFile('C:\Test.bmp');

Das funktioniert und die Datei ist 3MB groß.
Aber wieso funktioniert folgendes nicht?

Delphi-Quellcode:

Bmp        := TBitmap.Create;
Bmp.Width  := 1024;
Bmp.Height := 768;
Bmp.Pixelformat := pf32bit;

for i := 0 to 300 do
begin
  for j := 0 to 300 do
  begin
    Bmp.Canvas.Pixels[i,j] := 0;
  end;
end;

Bmp.SaveToFile('C:\Test.bmp');

Er speichert mir zwar eine Datei auf C aber die ist 0k groß.
Ich habe nur die Schleifenvariablen erhöht.
Wisst ihr was das sein kann?
MFG Alex