[Nickers]

Хм авто сохранение эт нада в TstringList исходную инфу переписывать и там есть встроенное сохранение...
Вот в этой теме есть примеры(с сохранением)...

Как это понять "не повторялись"? Ты про сохранение? Тогда нужно добавлять TStringList массив

A:array[1..10] of TstringList;

туды все вводить (По счету 1й, 2й, 3й) Добавлять функцию проверки (Когда новый покакет делается проверка в цикле всего массива на переменную Name и при повторении прост выходит и не записывает...)

function NameRepeat(NameX:string) : boolean;
var
  i : integer;
begin
  for i:=1 to max do
    if A[i].Name=NameX then begin
      result:=True;
      exit;
    end;
  result:=false;
end;

Procedure Init;
begin
   f:=0;
end;

if FromServer and (pck[1]=#$03) and (not NameRepeat(Read( )) then
   begin
      inc(f);
      A[f].Name:=...

Как-то так исправьте если дурак))

А переписывать скрипт этот мне лично влом))