1:
2:
3:
4:
5:

  Sig_Code: array[0..3] of Char;
begin
  Sig_code := 'Test'; 
  FS := TFileStream.Create(sFileName, fmCreate or fmOpenWrite);
  FS.Write(Sig_Code, sizeof(Sig_Code));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  Sig_Code: array of Char;
code:string
begin
  l := length(Code);
  SetLength(Sig_Code, l);

  if l > 0 then
    for i := 1 to l do
    begin
     Sig_Code[i - 1] := Code[i];
    end;

   
  FS := TFileStream.Create(sFileName, fmCreate or fmOpenWrite);
  FS.Write(Sig_Code, sizeof(Sig_Code));					

1:

  FS.Write(Sig_Code, sizeof(Sig_Code));					

1:

  FS.Write(Sig_Code[0], sizeof(Sig_Code));