Jump from a ListView row to a string in SynEdit

Help, trying to make the transition from the ListView line to a line in SynEdit, an error was found in the program that shows which SynEdit line it is on, when you click on an error, you need to make it go to the line in the SynEdit specified in the error That's what happened, but transition does not work

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin with TRegExpr.Create do try Expression := '\[line (\d+)\]'; // Ищем номер строки в сообщении об ошибке if Exec(Item.Caption) then begin TheLine := StrToInt(Match[1]); // запоминаем найденный номер строки с ошибкой SynEdit1.Invalidate; // и заставляем SynEdit перерисоваться. При этом изменится цвет строки end; finally`введите сюда код` Free; end;