[Страдалецъ]

Так попробуйте:

Код:

 AssignFile(TextLog,'C:\Connect.log');
 Reset(TextLog);
 Log := TStringList.Create;
 Log.Sorted := True;
 Log.Duplicates := dupIgnore;
 while not Eof(TextLog)
 do begin
    ReadLn(TextLog, S);
    Log.Add(Copy(S, Pos(']',S)+2, Length(S)));
    end;
 CloseFile(TextLog);