Prüfe in deiner Funktion countthenumbers ob deine variable a
etwas enthält oder nicht. dafür wäre dann eine abfrage mit if-then-else nicht schlecht...
also ungefähr so:
Delphi-Quellcode:
if a = leer then
begin
result := 0;
abruch der schleife
end
else
begin
dein normaler code...
end;
Gruß
Steku