Bitmap erstellen mit TBitmap.Create und speichern

[Alex_ITA01]

Ich habe im Thread jetzt schon eine neue Procedure geschrieben mit dem Namen CreateNewBitmap;

Wenn ich darin folgenden Source verwende, dann hab ich mal weiße Balken da, mal da und mal da...

Delphi-Quellcode:

procedure CreateNewBitmap;
var
  Bmp  : TBitmap;
  i, j : Integer;
begin
  Bmp        := TBitmap.Create;
  Bmp.Width  := 1024;
  Bmp.Height := 768;
  Bmp.Pixelformat := pf32bit;

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

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

Ich verstehe es einfach nicht...
MFG Alex