Nee er war einfach zu groß hab ihn verkleinert jetzt klappt es
von
Buffer:Array[1..10000]of Char;
zu
Buffer:Array[1..4]of Char;
Delphi-Quellcode:
FS := TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
FS.Position := $3c;
FS.ReadBuffer(Buffer,4);
Memo1.Lines.Add(Buffer);
end