[The Shadow]

Код:

var
s: Byte;
f: file;
begin
AssignFile(f, 'C:\file.txt');
Reset(f, 1);
BlockRead(f, s, 1);
CloseFile(f);
end;

В переменной s будет постоянно храниться первый байт файла {в этом примере} пока сам не изменишь ее.