Hola buen día, ya resolvi el problema acontinuación le dejo el codigo, para el que tenga el mismo problema.
Código:
procedure TForm1.ppImage1Print(Sender: TObject);
begin
ppImage1.Picture.LoadFromFile(ADOQuery2.FieldByName('Imagen').AsString);
end;
gracias mil