[ecfisa]

Hola DamianG.

La verdad es que es la primera vez que oigo hablar del tema, pero según el modo de obtención explicado en este [enlace], sería:

Código Delphi [-]
function DVPagoFacil(Valor: string): Byte;
var
  i,serie: Integer;
  mult: Single;
begin
  serie := 1;
  mult  := 0;
  for i:= 1 to Length(Valor) do
  begin
    if serie > 9 then serie := 3;
    mult := mult + StrToInt(Valor[i])*serie;
    Inc(serie,2);
  end;
  mult := mult / 2;
  Result := Trunc(mult) mod 10;
end;

Llamada ejemplo:

Código Delphi [-]
  Edit2.Text:= IntToStr(DigVerifPF(Edit1.Text));

Saludos.