Topic: Ошибка в функции ValidFloat()
Строка ',' считается числом с плавающей точкой, что на мой взгляд неверно - плавающая точка есть, а числа нет
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
ShowMessage( ValidFloat(',') );
end;