FilsStrs:TStringList;
FilsStrs := TStringList.Create;
for I := 0 to FilsStrs.Count - 1 do
begin
Writeln( FText, FilsStrs[I] );
end;
FilsStrs:TStringList;
FilsStrs := TStringList.Create;
for I := 0 to FilsStrs.Count - 1 do
begin
Writeln( FText, FilsStrs[I] );
end;