[Albano]

Aqui esta el código, asi lo tengo en mi DLL...

Código Delphi [-]
//Esta función recibe la tecla presionada y el texto escrito en un edit y verifica
//que lo que se esta tratando de escribir sea valido para un valor numerico con
//dos decimales
Function EditNumerico(Cadena: string; Tecla: char; Punto: boolean; decimales: integer): boolean; stdcall;
begin
  if (length(cadena) = 0) and (tecla = #8) then result := false
  else
  begin
    if not (tecla in ['0'..'9', '.', #8]) then result := false
    else
    begin
      if (tecla = '.') and (punto = true) then result := false
      else
      begin
        if not(tecla = #8) and (decimales = 2) then result := false
        else
        begin
          result := true;
          if (tecla = #8) and (cadena[length(cadena)] = '.') then punto := false;
          if (tecla = #8) and (decimales > 0) then dec(decimales);
        end;
      end;
    end;
  end;
end;

Me marca lo siguiente:

[Hint] cadenas.dpr(258): H2077 Value assigned to 'decimales' never used
[Hint] cadenas.dpr(257): H2077 Value assigned to 'Punto' never used