1:
2:
3:
4:
5:
6:

type TByteArray = array [0..0] of Byte:
    PByteArray = ^TByteArray;

var PBA:PByteArray;

@PBA := MMFData;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure Dateilesen;
var
  f : file of byte;
  b4 : Array [0..3] of byte;
  cnt : Integer;
  Position : LongInt;
begin
  Assign(f, 'C:\TEST.TXT');
  Reset(f);
  for cnt := 0 to 3 do read(f, b4[cnt]);
  //Position := BerechnePosAus4Byte(b4);
  seek(f, Position);
  // Hier dann weitere Daten lesen
  Close(f);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.Button1Click(Sender: TObject);
var DateiFile: TextFile;
    ReadedByte: Byte;
    i, j: Cardinal;
    SignCounter: array[0..255] of Cardinal;
begin
 if GetFileSizeEx('WMEncoder.exe')<=4294967295 then
  begin
   for i:=0 to 255 do
    begin
     SignCounter[i]:=0;
    end;
   AssignFile(DateiFile, 'WMEncoder.exe');
   Reset(DateiFile);
   while not eof(DateiFile) do
    begin
     Read(DateiFile, ReadedByte);
     inc(SignCounter[ReadedByte])
    end;
   CloseFile(DateiFile);
   for i:=0 to 255 do
    begin
     ShowMessage(IntToStr(i)+': '+IntToStr(SignCounter[i]));
    end;
  end
 else
  begin
   Application.MessageBox('Die ausgewählte Datei ist für diese Version zu groß!', 'Datei zu Groß', 16)
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Button1Click(Sender: TObject);
var DateiFile: TextFile;
    ReadedString: Strings[1024]; //Fehlermeldung von Delphi, da der Wert in [] nicht größer als 255 sein darf
    ReadedByte: Byte;
    i, j: Cardinal;
    SignCounter: array[0..255] of Cardinal;
begin
 if GetFileSizeEx('WMEncoder.exe')<=4294967295 then
  begin
   for i:=0 to 255 do
    begin
     SignCounter[i]:=0;
    end;
   AssignFile(DateiFile, 'WMEncoder.exe');
   Reset(DateiFile);
   while not eof(DateiFile) do
    begin
     Read(DateiFile, ReadedString);
     for j:=1 to length(ReadedString)+1 do
      begin
       ReadedByte:=Ord(ReadedString[j]);
       inc(SignCounter[ReadedByte])
      end
    end;
   CloseFile(DateiFile);
   for i:=0 to 255 do
    begin
     ShowMessage(IntToStr(i)+': '+IntToStr(SignCounter[i]));
    end;
  end
 else
  begin
   Application.MessageBox('Die ausgewählte Datei ist für diese Version zu groß!', 'Datei zu Groß', 16)
  end;
end;