一个简单的流问题

[xly371]

procedure TForm1.Button2Click(Sender: TObject);
var
qFileStream: TEncryptStream;
buffer,s: string;
qFileSize,i: Integer;
begin
if opendialog1.Execute then
qFileStream := TEncryptStream.Create(opendialog1.FileName, fmOpenRead);
qFileSize := qFileStream.Seek(0, sofromEnd);
qFileStream.Position:=0;
SetLength(Buffer, qFileSize);
qFileStream.Seek(0, SoFromBeginning);
//********************************
I:=1;
if Buffer<>':' then
begin
i:=i+1;
qFileStream.Read(Pchar(Buffer)^, i);
s:=buffer;
//这里得出来的是正常的s值
end;
qFileStream.Position:=i+1;
qFileStream.Read(Pchar(Buffer)^, strtoint(s));//这里就报错了，比如s=19,显示出是“'19?”不知道是怎么回事，请大家帮忙看一下是哪里出错了!!!
//********************************
qFileStream.Free;
Memo1.Text := Buffer;
end;

[tiankj]

qFileStream.Read(Pchar(Buffer)^, length(s));//

[Dongluo]

不知道你的文件是如何写的，我测试的是可以的！
文件内容如下：
12
111111111111