Delphi - Restringir edit a numeros reales..

Para q una Edit permita entrar solo nuemros reales con un solo separador, sugiero este codigo probado:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) and (key <> chr(VK_BACK)) and (key <> '.') then key := #0;
if (key = '.') and (pos('.',edit1.Text) <> 0) then key := #0;
end;

el separador '.' se puede cambiar a cualquier otro separador, por ejemplo ',' .
de la misma se puede restringir edits a todo tipo de filtros, por ejemplo fechas, numeros de telefono etc..

En vez de indicar con un punto o con un coma, podes usar las variables ThousandSeparetor y DecimalSeparetor, estas son variables predefinidas y contienen los separadores definidos en la configuración regional. De esta manera el código será mas genérico.

Mejor todavia..