خواندن رشته با کارکترهای تک بایتی از فایل

[mbshareat]

سلام
من چنین کدی دارم:
procedure LoadStr(FileName:String;var S:String);
Var
Stream : TFileStream;
begin
Stream := TFileStream.Create(FileName,fmOpenRead);
try
Stream.Position := 0;
SetLength(S,Stream.Size);
Stream.Read(S[1], Stream.Size);
finally
Stream.Free;
end;
end;


میخوام در فایلی متنی که چیزی مثل }$2.1${ در اون هست باز کنم و }$ رو پیدا کنم اما در دلفی یونیکد، نمیتونه پیداش کنه و وقتی مثلا 50 کارکتر اول فایل رو میخوام نشونم بده، رشته ای مرکب از کارکترهای مستطیل و کارکترهای ناخوانا نشون میده. در دلفی غیر یونیکد مشکلی نداشتم. حالا نمی دونم چطور بررسیش کنم.