sınıf içerisinde string kullanımındaki hata

[tigeremzi]

iyi günler sınıf içinde bi private bölüme 272 elemanlı string dizisi kullanıyorum ve aynı sınıf içinde yazmaya kalkınca 8 elemandan sonra çalışma esnasında hata alıorum istenmeyen adrese erişmişim die.aynı string dizisini private dan var bölümüne alınca almıorum hata.

teşekkür ederim.

private
fTrName : Array [0..272]of String;
fValue : Array [0..272]of String;
function GetTrName(Index: Integer): String;
procedure SetTrName(Index: Integer; Value: String);
public
constructor Create();
property TrName[Index: Integer] : String read GetTrName write SetTrName;
end;

var
Name1 : Array [0..272]of String;
implementation

procedure mouldparams.SetTrName(Index: Integer; Value: String);
begin
if (Index >= 0) and (Index <= 272) then
fTrName[Index] := Value
end;

function mouldparams.GetTrName(Index: Integer): String;
begin
if (Index >= 0) and (Index <= 272) then
Result := fTrName[Index]
else
Result := '';
end;

constructor mouldparams.Create();
var
fs: TFileStream;
S, HoldStr : string;
i : Integer;
NewPos1, NewPos2, OldPos : LongInt;
mould_xml : xmlfile;
begin
fs := TFileStream.Create('C:\windows\desktop\temel.xml', fmOpenread or fmShareDenyNone);
try
SetLength(S, fs.Size);
fs.ReadBuffer(S[1], fs.Size);
finally
fs.Free;
end;
OldPos := 0;
for i := 0 to 272 do
Name1 := ''; //bu hata vermiyor
//SetTrName(i, ''); // burada 8 indisli elamanda hata alıorum
end;

[tigeremzi]

debug yaptığımda ilk 7 eleman da değerler varkken 8. ve 9. elaman inaccessible value.ve arada da düzensiz şekilde bu geçerli.anlayamadım bu konuda yardımcı olursanız sevinirim.