[AND_REY]

Вот так думаю нормально запишет.

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Q: Array of String[32];
  F: TFileStream;
  i, R: Integer;
begin
 R:= 2;
 SetLength(Q, R);
 Q[0]:= '0000';
 Q[1]:= '1111';
 F:= TFileStream.Create('C:\1.txt',fmCreate);
 For i:= 0 To R - 1 Do F.Write(Q[i], SizeOf(Q[i]));
 F.Free;
end;