1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure ReadBytesFast;
var
    Puffer: array[0..1023] of byte;
    F: File;
begin
    {... Datei öffnen und so ... }
    BlockRead(F, Puffer[0], 1024);
    {... Datei schließen und so ... }
end;					

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

procedure ReadBytesFastByFileStream;
var
    Puffer: array[0..1023] of byte;
    FS: TFileStream;
begin
    FS := TFileStream.Create('C:\Datei.dat', fmOpenRead or fmShareDenyWrite);
    try
        FS.ReadBuffer(Puffer[0], 1024);
    finally
        FreeAndNil(FS);
    end;
end;					

1:

ReadSize := FS.Read(Puffer[0], 512);					

1:
2:
3:

NY@ÞÏk|ž+ñ–‚+�£fûËœh—èR@#: ÏQ™uÊ
­ßåúíhþ¯ÓÜ/aÁ�©éjíá&M±^êØio¶ˆ*¾Í»[é¾%(ÙJ�­eDؘað�?ÏÂ’$œ‰—
{ßErÝGŠ�ëÀ…"gØ4lö·îP8Ë´I¿p‹l=œ"¬t�²“1lMQ[oçb÷ßÁz‘¨È�…ñ'‡¡¼}? 5ç 9âL
nýwÒè>Ù”„¯					

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

procedure Kompression(const DateiFileStream: TFileStream; FileStr: String);
var i: Cardinal;
    SignCounter: array[0..255] of Cardinal;
    ReadBuffer: array[0..511] of Byte;
    ReadSize: Word;
    TakeSign: array of Byte;
//    DateiFile: File of Byte;
    KompFileStream: TfileStream;
begin
 for i:=0 to 255 do
  begin
   SignCounter[i]:=0;
  end;
 while DateiFileStream.Position<DateiFileStream.Size do
  begin
   ReadSize:=DateiFileStream.Read(ReadBuffer[0], 512);
   for i:=0 to ReadSize-1 do
    begin
     inc(SignCounter[ReadBuffer[i]])
    end
  end;
// AssignFile(DateiFile, Copy(FileStr, 1, length(FileStr)-length(ExtractFileExt(FileStr)))+'.pck');
 KompFileStream:=TFileStream.Create(Copy(FileStr, 1, length(FileStr)-length(ExtractFileExt(FileStr)))+'.pck', fmCreate or fmOpenWrite or fmShareDenyWrite);
// Rewrite(DateiFile);
 for i:=0 to 255 do
  begin
   if SignCounter[i]>0 then
    begin
     SetLength(TakeSign, High(TakeSign)+2);
     TakeSign[High(TakeSign)]:=SignCounter[i];
     KompFileStream.WriteBuffer(SignCounter[i], 1)
//     Write(DateiFile, SignCounter[i]);
    end
  end;
// CloseFile(DateiFile);
 FreeAndNil(KompFileStream);
end;

procedure TForm1.Button1Click(Sender: TObject);
var DateiFileStream: TFileStream;
    OpenDialog: TOpenDialog;
begin
 OpenDialog:=TOpenDialog.Create(Self);
 if OpenDialog.Execute then
  begin
   DateiFileStream:=TFileStream.Create(OpenDialog.FileName, fmOpenRead or fmShareDenyWrite);
   if DateiFileStream.Size<=4294967295 then
    begin
     Kompression(DateiFileStream, OpenDialog.FileName);
    end
   else
    begin
     Application.MessageBox('Die ausgewählte Datei ist für diese Version zu groß!', 'Datei zu Groß', 16)
    end;
   FreeAndNil(DateiFileStream);
  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:
36:
37:
38:
39:

procedure TForm1.Button1Click(Sender: TObject);
var DateiFile: TextFile;
    ReadedString: array[0..1023] of Byte; <--- Datentyp geaendert
    iBytesRead : Integer;
    ReadedByte: Byte; <---- Neu
    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
     iBytesRead := Read(DateiFile, ReadedString); // Wieviele Zeichen wurden gelesen
     if (iBytesRead > 0) then // <-- Es wurden Daten gelesen
      begin
       for j:= 0 to (iBytesRead - 1) do
        begin
         ReadedByte:=ReadedString[j];
         inc(SignCounter[ReadedByte])
        end
      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;