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

[Я тут новенький]

Здравствуйте!
Мне необходимо сделать сортировку списка по (скажу прямо, по IP адресу)
Список имеет вид такой:

Ник(тут айпи адрес)
Ник(тут айпи адрес) другая информация
Ник(тут айпи адрес) другая информация
...
Ник(тут айпи адрес) другая информация

В общем айпи написан в скобках и без пробела между ником
Сортировать необходимо начинать со 2 строки 1 должна оставаться на месте и желательно если айпи есть похожий с 1 строкой то и пишется
соответственно за ней.
И если это возможно что бы строки с одинаковыми айпи выделялись разными цветами.
Заранее благодарю за любую информацию

P.S на форуме и в интернете искал устал читать много информации но максимум чему научился это сортировать строки по алфавиту, а мне это не надо =(
Ещё раз спасибо.

[Alex11223]

А просто айпи умеешь сортировать? Вытащить-то из строки не сложно его.

const
  str1 = 'Ник(';
  str2 = ') ';
...
  IndexStart := Pos(str1, список.строка[i]) + length(str1);
  IndexEnd := Pos(str2, список.строка[i]);
  IP := Copy(список.строка[i], IndexStart, IndexEnd - IndexStart);

и про name/values TStringList'а посмотри, мб поможет чем-то.

[Я тут новенький]

Я уже всю голову сломал что то не совсем получается =((
наковырял такой код

procedure TForm1.Button1Click(Sender: TObject);
var
  A, B : Integer;
  S, Word : string;
begin
    s := Memo1.Lines.Text;
    A := Pos('(', S);
    B := Pos(')', S);
      begin
        Word := Copy(S, A+1, B-A-1);
        Memo2.Lines.Text:=Word;
      end;
end;

но он работает только с первой строчкой из списка.
я только научился вырезать нужную мне часть из строчки.
сделал форму с двумя мемо и кнопкой, в 1 мемо пишу исходный текст на кнопке код выше, а во втором мемо выводится только первая строка...
мозг уже кипит...
Помогите кто-нибудь подтолкните меня в нужном направлении
Мне необходимо чтобы выводились все строчки сразу
потом буду учиться делать сортировку.
Спасибо.

[BDA]

s := Memo1.Lines.Text;
    A := Pos('(', S);
    B := Pos(')', S);
    memo2.lines.clear;
    Repeat
        Word := Copy(S, A+1, B-A-1);
        memo2.lines.append(word);
        S:=copy(s,b,length(s)-b);
        A := Pos('(', S);
        B := Pos(')', S);
   until A<1;

Писал с телефона, так что возможны опечатки.

[Я тут новенький]

хм... добавляет в мемо2 явно много строк причём явно больше чем должно быть но все строки пустые кроме 1

[BDA]

Проверил и исправил на компе:

    s := Memo1.Text;
    A := Pos('(', S);
    B := Pos(')', S);
    memo2.lines.clear;
    Repeat
        Word := Copy(S, A+1, B-A-1);
        memo2.lines.append(word);
        S:=copy(s,b+1,length(s)-b);
        A := Pos('(', S);
        B := Pos(')', S);
   until A<1;

[Я тут новенький]

а как сделать так что бы бралось только то что в строке между первыми скобками
просто строчки имеют и вторые скобки в которых могут быть только 2 буквы
допустим (p) или (m) причём после закрывающей скобки стоит знак двоеточие
я понимаю что это должно как-то облегчить задачу но как её осуществить?
у меня максимум что получилось это из этого

naborbukv(xx.xx.xx.xx) tekst i cifri i znaki(p): teks

получить это

xx.xx.xx.xx) tekst i cifri i znaki(p

либо это

xx.xx.xx.xx
р

а мне необходимо что бы выдавало только это

xx.xx.xx.xx

[BDA]

Отключить у memo wordwrap.

var
  s,word:string;
  a,b,i:integer;
begin
  memo2.lines.clear;
for i:=0 to memo1.Lines.Count-1 do
  begin
    S:=Memo1.Lines.ValueFromIndex[i];
    A := Pos('(', S);
    B := Pos(')', S);
    Word := Copy(S, A+1, B-A-1);
    if word<>'' then
      memo2.lines.append(word);
  end;
end;

Вы, молодец, раз пытаетесь сами решить проблему.

УПД Пример во вложении, правда не знаю, по какому правилу сортировать ip.

[Я тут новенький]

Спасибо вам огромное огромное

а сортировать главное что бы одинаковые писались друг с другом...

Спасибо

[Я тут новенький]

помучившись две ночи вышел следующий код

procedure TForm1.btn1Click(Sender: TObject);
begin
RichEdit1.Clear;
Clipboard.Clear;
end;

function ip(s: string): int64;
var
  A, B, i: integer;
  d: int64;
  word: string;
  sl: TStringlist;
begin
  d := 0;
  A := Pos('(', S);
  B := Pos(')', S);
  word := Copy(S, A + 1, B - A - 1);
  if word <> '' then
  begin
    sl := tstringlist.Create;
    sl.Delimiter := '.';
    sl.DelimitedText := word;
    for i := 0 to sl.Count - 1 do
      d := d * 255 + strtoint(sl.Strings[i]);
    sl.Destroy;
  end else
    d := -1;
  result := d;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  tmp: string;
begin
  with RichEdit1.Lines do
    for i := 1 to Count - 2 do
      for j := i + 1 to Count - 1 do
      begin
        if ip(Strings[i]) > ip(Strings[j]) then
        begin
          tmp := Strings[i];
          Strings[i] := Strings[j];
          Strings[j] := tmp;
        end;
      end;
end;

на форме 2 кнопки и RichEdit
работает то что надо ставит строки с одинаковыми IP рядом
вопрос в следующем как сделать чтобы строки с одинаковыми IP подкрашивались цветом (пары с разными IP разными цветами)
например так

bukvi(0.0.0.0) text
bukavo4ki(0.0.0.0) text
slovo(1.1.1.1) text
vsjakoe(1.1.1.1) text
raznoe(1.1.1.1) text