Wie funktioniert BlockRead/Write?

[PAX]

Delphi-Quellcode:

var EinleseString: String;
    zweiteListBox: boolean;
begin
  EinleseString:=' ';     //wenn der Einlesestring vorher noch einen Wert zugewiesen bekommen hat, 
  Vokabel:='';          //dann bricht das Prog beim Einlesen auch ab
  zweiteListBox := false;
  OpenDialog1.Execute;
  AssignFile(Datei,OpenDialog1.FileName);    
  Reset(Datei);        

    While not EOF(Datei) do begin
      BlockRead(Datei,EinleseString,1);

      If EinleseString <> '¿' Then begin
        Insert(EinleseString,Vokabel,Length(Vokabel))
      end;

      If EinleseString = '¿' Then begin          //mit genau dieser Zeile kommt er nicht klar
        If zweiteListBox = true Then begin
          ListBox2.Items.Add(Vokabel);
          Vokabel:='';
          zweiteListBox := false;
        end else begin
          ListBox1.Items.Add(Vokabel);
          Vokabel:='';
          zweiteListBox := true
        end;
      end;
    end;

  CloseFile(Datei);
end;