[grib_aga]

Написал вот так, не работает:

Код:

var   n, b: string;
        FileFrom, FileTo: TFileStream;


        FileFrom := TFileStream.Create('filefrom.txt', fmOpenRead);
        FileTo := TFileStream.Create('outfile.txt', fmCreate);
        FileFrom.ReadBuffer(n, 1);
        b := 'мое значение';
        if n = b then Exit;

Получаю ошибку Access violation и Runtime Error.
Как исправить?