Yo creo que te falta un parametro en el StrScan o bien la comillas estan mal puestas:
Código Delphi
[-]
function StrScan ( const Characters : PAnsiChar; SearchChar : Char ) : PAnsiChar;
Deberias poner
Código Delphi
[-]
if ( StrScan('0123456789,.','el numero o caracter que sea') = nil ) then
Edit1.Clear;
Saludos