18bit Bilder erstellen??

[Simon6785]

Hallo nochmal!

Also die bmpausfirmware function läuft einwandfrei. aber die bildtauschen verursacht einen access error

Delphi-Quellcode:

procedure TForm1.bildtauschen(offset,groesse:Integer);
VAR length : integer;
    p : Pointer;
    buffer: array of byte;
begin
  length := Bmp24ToBmp18(image2.picture.bitmap, p);
  cla := TFileStream.Create(pfad, fmOpenWrite or fmShareExclusive);
  cla.Position := offset;
  cla.write(p^, length);
  FreeAndNil(cla);
  FreeMem(p);
end;

ich sehe keinen fehler, ihr?

//EDIT

es ist die bmp24to18. wenn ich sie einfach mal so aufrufe

length := Bmp24ToBmp18(image2.picture.bitmap, p); kommt der fehler auch!!!

lustig ist nur, er tauscht das Bild, funzt einwandfrei, aber das programm stürzt ab...