Bitmap erstellen mit TBitmap.Create und speichern

[Alex_ITA01]

mit einem Stream habe ich das gleiche Problem, dass ab und zu weiße balken da sind...
Kennst du noch andere methoden, die ich nutzen könnte.
danke alex

mein neuer source für stream:

Delphi-Quellcode:

procedure CreateNewBitmap;
var
  Bmp  : TBitmap;
  i, j : Integer;
  aStream : TFileStream;
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] := clBlack;
    end;
  end;

  aStream := TFileStream.Create('C:\Test.bmp', fmCreate or fmOpenWrite);
  Bmp.SaveToStream(aStream);
  aStream.Free;
end;

[edit]

Es geht auch mit MemoryStream anstatt FileStream nicht

[/edit]