Delphi - converter de PDF para Base64

Boa noite prezados!

Alguém aqui no time poderia me ajudar numa função, em delphi, que estou precisando fazer uma adaptação.
É o seguinte, tenho uma função que converte um Bitmap em Base64 e estou precisando adaptar ela para um arquivo PDF, ou seja, converter de PDF para Base64. Ela funciona perfeitamente para BMP mas não consegui para PDF. Segue a baixo a função:

function TDM.Base64FromBitmap(Bitmap: TBitmap): string;
var
Input: TBytesStream;
Output: TStringStream;
begin
Input := TBytesStream.Create;
try
Bitmap.SaveToStream(Input);
Input.Position := 0;
Output := TStringStream.Create('', TEncoding.ASCII);

try
Soap.EncdDecd.EncodeStream(Input, Output);
Result := Output.DataString;
finally
Output.Free;
end;

finally
Input.Free;
end;
end;

Por favor, me deem essa ajuda pois estou precisando muito!

Desde já agradeço a todos!

Sds,
Flávio

Essa dúvida foi gerada a partir de um comentário no guia Guia de Delphi