удалить дубликаты вместе с оригиналом из Tstrings

[Valimer]

удалить дубликаты вместе с оригиналом из Tstrings, если первые 4 символа равны 4 символам других строк, пробовал такой код, но ошибка list index out of bounds 0, причем если написать условие

if t[i] = t[q] then t.delete(q);

то все нормально. Главное еще оптимизировать код под работу через F:textfile; (главное чтобы работало быстро и не через оперативную память)

var T:Tstringlist;
i,q:integer;
...
for I := t.Count-1 downto 0 do
for q := i-1 downto 0 do
if Copy(t[i],1,4) = Copy(t[q],1,4) then t.Delete(q);

[evg_m]

for i:=t.count-1 downto 0 do
  for q:=t.count-1 downto i+1 do
    if ... then t.Delete(q)

i:=0;
while i<t.count-1 do
  for q:=t.count-1 downto i+1 do
    if .... then t.Delete(q);

[evg_m]

Главное еще оптимизировать код под работу через F:textfile;

t:=TstringList.Create;//место хранения "уникальных" строк
while not EOF(...) do begin
  s:=readln(..); //или другое чтение строки файла
  r:=false;
  for i:=0 to t.count-1 do begin
    r:=( copy(s,1,4)=copy(t.string[i],1,4) );
    if r then break;
  end;
  if not r then t.add(s);
end;
t.savetofile(...);

в идеале скорости еще бы избавиться и от многочисленных "обрезаний" строк copy(t.strings[i], 1, 4) в сторону хранения в памяти уже обрезанных строк.