Определение в строке числа

[pautina]

Здравствуйте Уважаемое сообщество.
Подскажите как разобраться с условием, мне нужно определить являются ли символы строки числом.
В строке числами являются следующие символы 0,0 5,7 2,0 23,6 542,8 675421,7 ...
Код использовал такой

const
 a0 =0; a1=1; a2=2; a3=3; a4=4; a5=5; a6=6; a7=7; a8=8; a9=9;
 var s:string; i:integer;
begin
//  Условие если строка не пуста то
for i:=0 to length(s) do
begin
 if (s[i]=Chr(32)) and (s[i+1]=a0 or a1 or a2 or a3 or a4 or a5 or a6 or a7 or a8 or a9)
     and (s[i+2]=Chr(Аски код запятой)) and (s[i+3]=a1 or a2 or a3 or a4 or a5 or a6 or a7 or a8 or a9)
     and (s[i+4]=Chr(32)) then //Условие если 1 символ пробел, и 2 символ число, и после числа запятая, и после запятой число, и после числа пробел
     // Выводим это число

end

Как прописать все условия

[Dj_smart]

Вот функцию набросал за 5 минут

function isword(s:string):boolen;
const
  nonword=-1; // подберите такое число, какое точно не будет встречатся
var q1:integer;
begin
  result:=true;
  if pos(',',s)=0 then result:=false else begin // если нет запятой то это уже не число
    q1:=pos(',',s);
    if strtointdef(copy(s,1,q1-1),nonword)=nonword then result:=false;
    if strtointdef(copy(s,q1+1,length(s)),nonword)=nonword then result:=false;
  end;
end;

Извеняюсь за ошибки если таковые будут
И да, забыл - вам придется вырезать все строки из главной строки (пробелами) и определить по этой функции.