Entonces, tu procedimiento debe tener sólo dos parámetros:
Código Delphi
[-]
procedure ValidarPorcentajeKeyPressEdit(Caracter: Char; Edit:TrDBEdit);
begin
...
end;
y lo invocas pasando el Sender
AS TrDBEdit:
Código Delphi
[-]
procedure TFormulario.DBPorcentajeKeyPress(Sender: TObject; var Key: Char);
begin
ValidarPorcentajeKeyPressEdit(Key, Sender as TrDBEdit);
end;
y modifica tu procedimiento acordemente.
LineComment Saludos