Funciones de validación bien hechas

[noob]

Siempre se dice que una función debe de hacer una única cosa, por ejemplo si vamos a validar que un dato introducido por el usuario sea un número decimal podemos hacer:

1)

Código Delphi [-]
function PrecioValido(Precio: string): boolean;
var
  Importe: extended;
begin
  Result := False;  
  if TryStrToFloat(Precio, Importe) then
    Result := True
  else
    ShowMessage('El precio no es válido');
end;

o podemos hacer:

2)

Código Delphi [-]
function PrecioValido(Precio: string): boolean;
var
  Importe: extended;
begin
  Result := False;
  if TryStrToFloat(Precio, Importe) then
    Result := True;
end;

y luego llamar al la función así:

Código Delphi [-]
if not PrecioValido(Precio) then
  ShowMessage('El precio no es válido');

¿Cuál de las dos formas sería la correcta?

Saludos.