Schreib mal bitte folgendes (die drei ... natürlich nicht hinschreiben, ist eine verkürzte Darstellung!):
Delphi-Quellcode:
for ... do
if ... then
begin
Label9.Caption := 'Hier steht dein Text';
Break; // <--- das wird der entscheidende Punkt sein!
end else
...
Du verlässt die Schleife nicht im Erfolgsfall. Darum musst du ein Break hinmachen!