[Bargest]

Код:

if(s.Strings[i][k] = s.Strings[i][k]) then

Вообще-то символ строчки всегда равен самому себе.
Если ты хочешь удалить все строки-дубликаты, то надо как-то так:

Код:

for i:=0 to s.Count - 2 do
 for j:=i+1 to s.Count - 1 do
  if s.Strings[i]=s.Strings[j] then 
   s.Delete(j);