Falls es funktioniert, setze ein BeginUpdate in der FindListView() (oder sogar schon in der ToolButton23Click()) Funktion relativ weit oben und kurz vor Schluss ein EndUpdate. Das sollte theoretisch alles um 100% beschleunigen.
Aber Daten in den visuellen Komponenten speichern ist eigentlich immer Pfui.
Na wie bekommst Du denn Daten in ein Stringgrid ohne sie zu laden?
[Edit]
Was mir gerade noch so Einfällt um alles enorm zu beschleunigen, an der Stelle wo Du Dein Stringgrid mit Daten füllst, bastel eine kleine Unterfunktion ein die folgendes macht:
Bohrpunkte in Stringgrid-Column[XY] rein PLUS Bohrpunkte in ein Array, im Nachhinein nurnoch das Array nach Werten durchforsten. Eine TList geht auch, sollte die gleiche Performance bringen.
[/Edit]