for i := 0 to ResultPage.Count -1 do
begin
//Тут if Pos()
//Copy, Delete
//Записываешь результат, допустим в memo
end;