Ayuda Por Favor! Condición If

[[Chris]]

Normalmente siempre es más oportuno utilizar la función TryStrToFloat en lugar de StrToFloat. TryStrToFloat devuelve TRUE si la cadena dada en el primer parámetro solo tenía números, de lo contrario, devolverá FALSE.

Código Delphi [-]
var
    prueba: Double;
begin
    if not TryStrToFloat(Valor.Text, Prueba) then
    begin
        ShowMessage ('Lo que introdujo no es un número');
        Exit;
    end;
end;

[ecfisa]

Empezado por Chris

Normalmente siempre es más oportuno utilizar la función TryStrToFloat en lugar de StrToFloat. TryStrToFloat devuelve TRUE si la cadena dada en el primer parámetro solo tenía números, de lo contrario, devolverá FALSE.

Correcto, con TryStrToFloat ampliamos la opción a números reales.
Te comento javave que TryStrToInt funciona del mismo modo pero con enteros.

En ese caso la verificación OnKeyPress queda:

Código Delphi [-]
procedure TForm1.ValorKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, #13, ',' , '0'..'9']) then // teclas permitidas BacSpace,Intro,'0'..'9', ',' o '.'
  begin
    Beep;
    Key:= #0;
  end;
end;

De acuerdo al delimitador especificado poné '.' o ','

Para especificarlo podés usar la variable DecimalSeparator.
Para el código de arriba:

Código Delphi [-]
  DecimalSeparator := ',';

Saludos.

[javave]

Gracias a todos por su apoyo!

Ya pude resolver el problema!