queltext kürzen mit schleifen

[xxsasch4xx]

wenn ich den queltext in einen button mache dann geht es. Aber wenn ich es in meine eigene angelegte procedure reinfügen will dann gibt er mir 2 fehlermeldungen aus:

Undefinierter Bezeichner 'Find compenent' und operator ist auf diesen operandentyp nicht anwendbar.
Geht das nicht in einer Procedure oder funktion?
ich brauch das nämlich in mehreren buttons deswegn wär eine procedure sinnvoll