Delphi-Quellcode:
// Bei dieser if Anweisung springt er dann raus...
if adoquery1.Locate('Behandlung',tb_behandlung.Text,[])then
adoquery1.FieldByName('behandlung').AsString;
Steht das wirklich so in deinem Programm?
Ist zwar syntaktisch korrekt, deshalb schmeißt dein Compiler keine Fehlermeldung aber im Programmablauf gibt's dann ein Problem...
Grüße
Mikhal