Me autorrespondo:
Quedaria de esta manera:
Abrimos el PDF en cuestion...
Código Delphi
[-]
procedure TObjetivosCalidadIngreso.AbrirPDF(Sender: TObject);
begin
if opendialog1.Execute then
begin
AcroPDF1.LoadFile(opendialog1.FileName);
end;
end
Luego, Guardamos:
Código Delphi
[-]
procedure TObjetivosCalidadIngreso.GuradarPDF(Sender: TObject);
begin
copyfile(pchar(OpenDialog1.FileName),pchar('C:\DOCUMENTOS\Nombre a elegir.pdf'),false);
end;
Gracias de todos modos!!!