Блог программистов

...
Var
s:byte;
...
Function WriteBinaryData(BinaryData:Widechar):Boolean;
var
f:tfilestream;
f1:textfile;
j:integer;
begin
Result:=false;
assignfile(f1,'PasswordBinary.txt');
if not fileexists('PasswordBinary.txt') then begin rewrite(f1);
closefile(f1);
end;
f:=tfilestream.Create('PasswordBinary.txt', fmOpenWrite);
f.Seek(0,soBeginning);
s:=byte(BinaryData);
j:=f.Write(s,15); // Длина заранее определена
if j=15 then Result:=true;
f.Free;
end;
...