Declaracion de nuevos tipos

[dec]

Hola,

Declaras el método "PadString" en la clase "TDM_Varios", pero, luego no lo implementas: por eso te dice que no se satisface la declaración.

En lugar de implementar la función:

Código Delphi [-]
Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;

Tienes que implementar un método, es decir, la función, en este caso, pero, perteneciente a la clase de marras:

Código Delphi [-]
Function TDM_Varios.PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;