[NumLock]

Код:

var
  f: TFileStream;
  b: String;
  v: String;
begin
  v:='unit Unit1;';
  f:=TFileStream.Create('Unit1.pas', fmOpenRead);
  try
    SetLength(b, 11);
    f.ReadBuffer(PChar(b)^, 11);
    if v=b then ShowMessage('Ok');
  finally
    f.Free;
  end;
end;