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

var
  fSource: file of Byte;
begin
  AssignFile(fSource, source);
  {$i-}
    Reset(fSource);
  {$i+}
  if not (IOResult = 0) then begin
    Showmessage('Fehler');
    Exit;
  end;
  closeFile(fSource);					

1:
2:
3:
4:
5:

AssignFile(fSource, 'test.txt');
  {$I-}
  FileMode := 0;  {Set file access to read only }
  Reset(fSource);
  {$I+}