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

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);

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,1,4) );
    if r then break;
  end;
  if not r then t.add(s);
end;
t.savetofile(...);