18bit Bilder erstellen??

[neolithos]

Delphi-Quellcode:

function TForm1.bmpausfirmware(offset,groesse:integer):TBitmap;
VAR i:integer; buf: array of byte; ergebniss:string;
begin
cla := TFileStream.Create(pfad, fmOpenread);
cla.Position:=offset;
SetLength(buf, groesse);
cla.Read(buf[0], groesse);
ergebniss:='';
for i:=0 to groesse do
ergebniss:=ergebniss + inttostr(buf[0]);
i:=strtoint(ergebniss);
result:=Bmp18ToBmp24(buf[0],176,220);  // << ---
end;

In dem man die Daten übergibt!