Достать нужный IP из строки

[Shouldercannon]

Имеется

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s2: string;
  Len: Integer;
begin
  s2 := '192.168.2.2';
  Len := Length(s2);
  s := '192.168.2.0~L0~P0!end-access'#$D#$A'192.168.2.255~L255~P255!end-access'#$D#$A'192.168.2.2~L2~P2!end-access'#$D#$A;

  // Ищем свой логин и пароль по IP-адресу
  if Pos(s2, s) <> 0 then
  begin
    // Получим свой логин и пароль
    s := Copy(s, Pos(s2, s), Pos('!end-access', s) - 1);
    // Удалим IP-адрес
    Delete(s, 1, Pos('~', s));
    Label1.Caption := Copy(s, 1, Pos('~', s) - 1); // Логин
    Delete(s, 1, Pos('~', s));
    Label2.Caption := Copy(s, 1, Length(s)); // Пароль
  end
end;

Нужно получить данные только по IP 192.168.2.2, а хватается первое попавшееся, например 192.168.2.255. Хотел сделать проверку на длину искомого IP, но вошёл в ступор.

[Yurk@]

я так понял разделителем значений является ~
ну тогда и искай '192.168.2.2'+'~'

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s2, temp: string;
begin
  s2 := '192.168.2.2';
  s := '192.168.2.0~L0~P0!end-access'#$D#$A'192.168.2.255~L255~P255!end-access'#$D#$A'192.168.2.2~L2~P2!end-access'#$D#$A'192.168.2.12~L12~P12!end-access';

  // Удалим #$D#$A
  s := Stringreplace(s, #$D#$A, '', [rfReplaceAll, rfIgnoreCase]);
  // Ищем свой логин и пароль по IP-адресу
  while Pos(s2, s) <> 0 do
  begin
    temp := Copy(s, 1, Pos('!end-access', s) - 1);
    // Если полученный IP-адрес совпадает с искомым
    if Copy(temp, 1, Pos('~', s) - 1) = s2 then
    begin
      // Удалим IP-адрес
      Delete(s, 1, Pos('~', s));
      Label1.Caption := Copy(s, 1, Pos('~', s) - 1); // Логин
      Delete(s, 1, Pos('~', s));
      Label2.Caption := Copy(s, 1, Pos('!end-access', s) - 1); // Пароль
      Break;
    end
    else Delete(s, 1, Pos('!end-access', s) + 10); // Удалим обработанное для дальнейшего поиска
  end;
end;