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;